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
Wie sieht der Code aus, wenn ich eine Spalte auslassen möchte? Oder es hilft auch, wenn der Code so abgeändert wird, dass dieser nur in einem markierten Bereich ausgeführt wird?Danke im Voraus.
LG, Helmut