Hallo Kann sich mal bitte jemand den Quellcode anschauen, ich möchte für einen festen Bereich in einer Spalte eine Zelle, in der drei Werte enthalten sind aufspalten. Leider hängt der Quellcode immer an der Ausführung der Aufspaltung, kann mir hier eventuell jemand weiterhelfen?
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