0160-93 82 19 37 | Nehmen Sie 
Text und Werte in Spalten aufteilen
111024
Dieses Makro verteilt alle in Spalte A, beginnend ab Zelle A1, eingegebenen Werte (Texte, Zahlen etc.) in einzelne Zellen. So haben Sie Zugriff auf jeden einzelnen Buchstaben oder auch Zahl.
Public Sub Text_aufteilen()
'Beginnend von Zeile 1 wird diese Funktion so lange ausgeführt,
'bis die erste leere Zeile auftritt
'Die einzlenen Buchstaben werden in die Spalten B - x geschrieben
Dim zeile
zeile = 1
'Ausführen, bis die erste leere Zeile in der Spalte A gefunden wird
Do
länge = Len(Sheets(1).Cells(zeile, 1).Value)
'Die einzelenen Buchstaben in die entsprechenden Spalten schreiben
For i = 1 To länge
Sheets(1).Cells(zeile, i + 1) = Mid(Sheets(1).Cells(zeile, 1).Value, i, 1)
Next i
zeile = zeile + 1
Loop While Sheets(1).Cells(zeile, 1).Value <> ""
End Sub
Das Ergebnis sieht wie folgt aus:
