Nutzen Sie unser 
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.
Es wird also jedes einzelne Zeichen des Textstrings oder der Nummernfolge in jeweils eine eigene Zelle ab Spalte B geschrieben. Das Ergebnis sehen Sie in der folgenden Abbildung.
Erfassen Sie den VBA-Code in einem "normalen" Code-Modul
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
