Schleife mit Textkonvertierungsassistent

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