Option Explicit
Sub Splitten()
    ReDim ArrSpA(ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row, 1) As Variant
    Dim SpZaehler As Long, Zeilen As Long
    Dim zeichen As Integer
    Dim Lager As String
    ArrSpA() = Range("A1:A" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row)
    SpZaehler = 1
    For Zeilen = 2 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
        For zeichen = 1 To Len(ArrSpA(Zeilen, 1))
            If Mid(ArrSpA(Zeilen, 1), zeichen, 1) Like "[A-Za-z]" = True Then
                If Lager <> "" Then Cells(Zeilen, SpZaehler) = Lager
                Lager = ""
                Lager = Lager & Mid(ArrSpA(Zeilen, 1), zeichen, 1)
                SpZaehler = SpZaehler + 1
            Else
                Lager = Lager & Mid(ArrSpA(Zeilen, 1), zeichen, 1)
            End If
        Next zeichen
        Cells(Zeilen, SpZaehler) = Lager
        Lager = ""
        SpZaehler = 1
    Next Zeilen
End Sub