Zeichen abschneiden VBA funktion

Function RechtsAbschneiden(Text As String, Zeichen As String)
' Gibt den Text rechts von Zeichen als Wert aus
On Error GoTo Zeichennichtgefunden
RechtsAbschneiden = ""
Do
RechtsAbschneiden = Right(Text, 1) & RechtsAbschneiden
Text = Left(Text, Len(Text) - 1)
Loop Until Right(Text, 1) = Zeichen
Exit Function
Zeichennichtgefunden:
RechtsAbschneiden = "Zeichen nicht gefunden"
End Function


Code unter VBA in ein Modul der Datei kopieren.

in den Zellen folgende Formel eintragen

=RechtsAbschneiden(A2;"/")