Leerzeichen rechts weg
19.07.2007 13:07:00
Tom
bei Leerzeichen links weg funktioniert folgender Code prima:
Sub Leerzeichen_links_weg()
Dim laR As Long, i As Long
laR = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To laR
Cells(i, 1) = LTrim(Cells(i, 1).Value)
Next i
End Sub
Welchen nutze ich aber für Leerzeichen rechts weg?
Gruß und Danke vorab
TOM