Startseite

Leerzeichen entfernen
Wenn man in einer Excelliste aus einem Fremdsystem importierte Daten hat, kommt es häufig vor, dass dort vor und / oder nach dem Zellinhalt unerwünschte Leerzeichen enthalten sind. Das hier vorgestellte Makro kann diese entfernen. Leerzeichen innerhalb der Zeichenketten werden nicht entfernt! Das Makro wirkt auf Spalte A, kann aber auf andere Bereiche angepasst werden.

Sub keine_leerzeichen()
'Variablen deklarieren
Dim vInhArr As Variant                          ' Array zum Einlesen der Listeninhalte
Dim vErgArr() As Variant                        ' Array nimmt Inhalte ohne Leerzeichen auf
Dim iAnz As Integer                             ' Schleifenzähler
Dim lZiel As Long                               ' Letzte gefüllte Zelle
lZiel = Range("A65536").End(xlUp).Row           ' Letzte gefüllte Zelle ermitteln
ReDim vErgArr(lZiel, 0)                         ' Array Dimensionieren
vInhArr = Range("A2:A" & lZiel).Value           ' Inhalte aus Spalte (A) in Array laden
For iAnz = LBound(vInhArr) To UBound(vInhArr)   ' laufe vom 1. bis zum letzten Inhalt durch das Array
    vErgArr(iAnz, 0) = Trim(vInhArr(iAnz, 1))   ' Inhalte ohne Leerzeichen in Array schreiben
Next iAnz                                       ' Schleifenzähler plus 1
Range("A2:A" & lZiel) = vErgArr                 ' Inhalte ohne Leerzeichen zurück schreiben
End Sub

Code eingefügt mit: Excel Code Jeanie