Leerzeichen Löschen
12.10.2003 17:28:05
Max M.
ich möchte in den Zellen das Leerzeichen zwischen Buchstaben und Zahlen Löschen und habe folgendes Makro geschrieben, aber leider funktioniert es nicht.
Könnt Ihr mir ein Tipp geben was ich falsch gemacht habe?
Sub LeezeichenLöschen()
Dim i As Integer
Dim J As Integer
For J = 1 To 40 Step 2
For i = 2 To 11 Step 1
With Cells(J, i)
Trim Cells(J, i)
End With
Next i
Next J
End Sub
Max M.