Leerzeichen links löschen
04.05.2005 11:46:59
Tom
habe jetzt die Recherche durch und habe nix passendes gefunden ...
Ich möchte am Zeilenanfang die Leerzeilen mit einem Makro entfernen, so dass alle Zeilen sauber nach links geschoben werden. Ich hatte mal den Code - doch irgendwo ist er im Excel-Nirvana verschwunden ...
Dieser Code bringt leider nicht das gewünshcte Ergebnis:
Sub Leerzeichen_links_weg()
Dim laR As Long, i As Long
laR = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To laR
LTrim (Cells(i, 1).Value)
Next i
End Sub
Wer hat ne Lösung?
Gruß und Danke vorab
Tom
Anzeige