Daten bereinigen

Nachdem Rohdaten in Excel importiert wurden, ist es oft notwendig, diese zu bereinigen, d.h.
zB nicht druckbare Zeichen und / oder Leerzeichen zu entfernen.

Diese Aufgabe übernimmt die Funktion GLÄTTEN() (Leerzeichen entfernen)
bzw SÄUBERN() (nicht druckbare Zeichen entfernen)


VBA Code zum Entfernen aller nicht druckbarer Zeichen

Auswahl Nicht druckbare ASCII Codes

127 = DEL
129 = Leer
141 = Leer
144 = Leer
157 = Leer


--- SCHNIPP ---

Sub AlleNichtDruckbarenZeichenEntfernen()
Dim rngZelle As Range

  For Each rngZelle In ActiveCell.SpecialCells(xlCellTypeConstants, 23)

    rngZelle.Value = Application.WorksheetFunction.Clean(rngZelle.Value)

    'Unicodes 127, 129, 141, 143, 144 und 157 entfernen
    If rngZelle.Value Like "*" & Chr(127) & "*" Then
      rngZelle.Value = Replace(rngZelle.Value, Chr(127), "", 1, , vbBinaryCompare)
    End If

    If rngZelle.Value Like "*" & Chr(129) & "*" Then
      rngZelle.Value = Replace(rngZelle.Value, Chr(129), "", 1, , vbBinaryCompare)
    End If

    If rngZelle.Value Like "*" & Chr(141) & "*" Then
      rngZelle.Value = Replace(rngZelle.Value, Chr(141), "", 1, , vbBinaryCompare)
    End If
    If rngZelle.Value Like "*" & Chr(143) & "*" Then
      rngZelle.Value = Replace(rngZelle.Value, Chr(143), "", 1, , vbBinaryCompare)
    End If

    If rngZelle.Value Like "*" & Chr(144) & "*" Then
      rngZelle.Value = Replace(rngZelle.Value, Chr(144), "", 1, , vbBinaryCompare)
    End If

    If rngZelle.Value Like "*" & Chr(157) & "*" Then
      rngZelle.Value = Replace(rngZelle.Value, Chr(157), "", 1, , vbBinaryCompare)
    End If
  Next

End Sub

ASCII Tabelle siehe hier

siehe auch Excel Power Query