Danke für eure Hilfe!
Sub
Zaehler = 24
maxim = 1150
Do While Zaehler Cells(Zaehler, 2).Activate
If Cells(Zaehler, 2) > 1 Then
Range("Zaehler, 2").Select
Cells(Zaehler, 2).Activate
Selection.TextToColumns Destination:=Range("Zaehler, 2"), DataType:=xlFixedWidth,
FieldInfo:=Array(Array(0, 1), Array(8, 1), Array(16, 1)), TrailingMinusNumbers:= _
True
End If
Zaehler = Zaehler + 1
Loop
End Sub