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: