In Zelle nach letztem Komma suchen, davor alles löschen

[MichaLauterbach]

Hallo,
ich suche eine Möglichkeit, per VBA in einer Zelle das letzte Komma zu suchen (wenn vorhanden) und alles vor dem Komma und das Komma selbst zu löschen.

Bsp

A1  "Bring Bier mit, bring Chips mit, sei pünktlich" soll zu "sei pünktlich" werden
A2 "Bring Brot und Butter mit, komm 18 Uhr" soll zu "komm 18 Uhr" werden
A3 "Komm alleine" soll so bleiben

Welche Funktionen kann ich mir da mal anschauen? Office 2013 wohlgemerkt.

Vielen Dank im vorraus!

[LCohen]

=GLÄTTEN(RECHTS(WECHSELN(A1;", ";WIEDERHOLEN(" ";599));599))

[MichaLauterbach]

Wow, noch nie gehört von Glätten,Wechseln oder Wiederholen. Funktioniert, vielen Dank!

Ich war an =RIGHT(A1;LEN(A1)-FIND(",";A1)) dran, aber das ging nicht so richtig. Danke!

[RPP63]

Der Vollständigkeit halber, da ja ursprünglich VBA angedacht war.
UDF:

Function Rechts_Spezial$(rng$, Deli$)
Rechts_Spezial = Split(rng, ", ")(Ubound(Split(rng, ", ")))
End Function

Ergibt:

	A	B
1	Bring Bier mit, bring Chips mit, sei pünktlich	sei pünktlich
2	Bring Brot und Butter mit, komm 18 Uhr	komm 18 Uhr
3	Komm alleine	Komm alleine

Zelle	Formel
B1	=Rechts_Spezial(A1;", ")
B2	=Rechts_Spezial(A2;", ")
B3	=Rechts_Spezial(A3;", ")

Gruß Ralf