Zahlen und Buchstaben in Spalten trennen

Option Explicit

Sub SplitTextToColumns()
    Dim aTempA As Variant, aTempB As Variant, aValues As Variant, i As Long
    
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row  
        If Cells(i, "A").Text <> "" And Cells(i, "B").Text = "" Then  
            aValues = Split(Cells(i, "A"), ",")  
            
            If UBound(aValues) = 1 Then
                aTempA = Split(Trim(aValues(0)))
                aTempB = Split(Trim(aValues(1)))
                aValues(0) = aTempA(0) & ", " & aTempB(0)  
                aValues(1) = aTempA(1) & ", " & aTempB(1)  
                Cells(i, "A").Resize(1, 2).Value = aValues  
            End If
        End If
    Next
    
    Columns("A:B").AutoFit  
End Sub