VBA-Makro Spalten automatisch teilen

Ich habe eine Spalte mit Vor- und Zunamen (download). Nun muss diese Tabelle automatisch nach dem Nachnamen sortiert werden (welcher jedoch an letzter Stelle steht). Bisher habe ich mir so beholfen, dass ich nach einem Leerzeichen gesucht habe und dann die Spalte unterteilt habe. Nun habe ich aber das Problem, dass es ja auch Menschen mit 2 oder mehr Vornamen gibt (oder auch Titel, Vorsätze etc). Wie könnte ich das Problem mit einem Makro lösen?? Das beste wäre wohl, wenn man von hinten nach dem Leerzeichen sucht, da doppelte Nachnamen ja normal mit Bindestrich verbunden werden. Aber wie macht man das? Bitte genaue Beschreibung! Danke.

 

Hi,

Code:

Sub teilen()
    Dim inZeile As Integer
    For inZeile = 1 To 20
        Cells(inZeile, 2) = Mid(Cells(inZeile, 1), InStrRev(Cells(inZeile, 1), " ") + 1)
    Next inZeile
End Sub

Hinweis: InStrRev gibt es erst ab Excel2002