Leerzeichen in Zelle löschen
Helmut
ich habe einen Code bekommen, der jeden Text in der Zelle auf seine Länge trimmt (Leerzeichen danach werden gelöscht). Dieser Code bezieht sich auf das komplette Tabellenblatt. Hier der Code:
Sub leerzeichen_loeschen()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Cells.SpecialCells(xlCellTypeConstants)
c = Trim(c)
Next
Application.ScreenUpdating = True
End Sub
Danke im Voraus.
LG, Helmut
Anzeige