Text und Werte in Spalten aufteilen

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