ich habe das unten aufgeführte Makro aufgezeichnet, aber ich möchte dieses noch erweitern.8Text in Spalten.)
So wie jetzt gemacht ist, muß ich jede Zeile als Makro aufzeichnen, was sich aber als Mammut-Aufgabe dastellen würde...
Gibt es eine Möglichkeit, das ich im Makro vorgeben kann, z.B.
von A9 bis A125 die Zeilen so wie im unten aufgeführten Makro zu behandeln ? Danke euch schon vorab und Gruß, Ralf
Sub Makro2()
Range("A9").Select
Selection.TextToColumns Destination:=Range("A9"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(20, 1), Array(40, 1))
Range("A10").Select
Selection.TextToColumns Destination:=Range("A10"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(20, 1), Array(40, 1))
Range("A11").Select
Selection.TextToColumns Destination:=Range("A11"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(20, 1), Array(40, 1))
Range("A12").Select
Selection.TextToColumns Destination:=Range("A12"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(20, 1), Array(40, 1))
Range("A13").Select
Selection.TextToColumns Destination:=Range("A13"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(20, 1), Array(40, 1))
Range("A14").Select
Selection.TextToColumns Destination:=Range("A14"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(20, 1), Array(40, 1))
Range("A15").Select
Selection.TextToColumns Destination:=Range("A15"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(20, 1), Array(40, 1))
Range("A16").Select
Selection.TextToColumns Destination:=Range("A16"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(20, 1), Array(40, 1))
End Sub