Schleife mit Textkonvertierungsassistent
02.10.2017 13:43:23
Major
Beitrag wohl schon zu alt, daher zeigt es diesen bei den Offenen nicht mehr an, d.h. neuer Beitrag und weiter geht's.
Sub Makro1()
Dim i As Integer
For i = 1 To 5000
If Cells(i, 42) = "x" Then 'Spalte AP
Selection.TextToColumns Destination:=Range("A191"), DataType:=xlFixedWidth _
, FieldInfo:=Array(Array(0, 1), Array(8, 1), Array(20, 1), Array(35, 1), Array(49, 1), _
_
Array(52, 1), Array(64, 1), Array(79, 1), Array(94, 1), Array(99, 1), Array(103, 1), _
Array( _
108, 1), Array(122, 1), Array(132, 1)), TrailingMinusNumbers:=True
End If
Next i
End Sub
... die Textkonvertierung wird Stand jetzt ja immer nur in Range A191 durchgeführt(siehe code). Wie bekomme ich es hin, dass es in jeder Zeile mit "x" durchgeführt wird?Danke!
Gruss Major