Hey Zusammen,
folgenden Code wurde mir für das Leerstellen entfernen empfohlen! Leider hat er Probleme mit dem End! Ist der Code so richtig. Er soll in Spalte 2 ab der Zeile 5 bei alllen Einträgen die Leerstellen vor und hinter dem Wort löschen?
Sub Leerstelle()
For i=5 to Cells(Rows.Count, 2)End(xlUp).Row
Cells(i, 2) = Trim(Cells(i, 2)
Next
Vielen Dank;
Andi