Text in jeder Zelle aufteilen
26.05.2016 11:01:41
Thomas
für jemanden der das kann sicher eine Kleinigkeit...
ich möchte gerne den Text in "A6" in Zellen "B6" u. "C6" geteilt am Komma eintragen.
Der Text in der Zelle A6 ist immer durch ein Komma getrennt z.B. M001,asdf12
Per Schleife sollte dann für jede beschriebene die Zeile in Spalte A der Vorgang wiederholt werden.
Das Makro was ich gefunden und leicht abgewandelt habe füntioniert soweit
aber es ist eben keine Schleife... ich bekomme das nicht hin... hat jemand von Euch eine Lösung für mich?
Sub TextTrennen()
Dim s$, i%, intCol%
s = Range("D6").Value
i = InStr(s, ","): intCol = 5
While i > 0
Cells(6, intCol).Value = Left(s, i - 1)
s = Right(s, Len(s) - i)
i = InStr(s, ","): intCol = intCol + 1
Wend
Cells(6, intCol).Value = s
End Sub
Anzeige