Schleife mit Textkonvertierungsassistent
22.09.2017 16:17:17
Major
versuche mich nach langer Zeit mal wieder an einenm Makro, ohne Erfolg. Auch ohne Erfolg bei der Recherche nach Lösungen. Hier der bisherige code...
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
Exit Sub
End If
Next i
End Sub
Ziel soll sein: Durchsuche Spalte AP (sollte ca. 5000 Zeilen lang sein) nach dem Buchstaben "x". Wenn "x", dann führe in der entsprechenden Zeile in Spalte A die Aktion aus (per Makrorec. aufgenommen). "x" kommt mehrfach vor in der Spalte AP.
Danke für Hilfe!
Gruss Major