Right (Funktion)

<< Click to Display Table of Contents >>

Right (Funktion)

Right(String, n)

Liefert eine Zeichenkette, die aus den letzten n Zeichen der Zeichenkette String besteht.

Siehe auch: Len, Left, Mid

Beispiel:

Sub Main

 Dim LWord, Msg, RWord, SpcPos, UsrInp

 Msg = "Geben Sie zwei durch ein Leerzeichen "

 Msg = Msg & "getrennte Wörter ein."

 UsrInp = InputBox(Msg)

 SpcPos = InStr(1, UsrInp, " ")   ' Leerzeichen finden

 If SpcPos Then

         LWord = Left(UsrInp, SpcPos - 1)    ' Linkes Wort

         RWord = Right(UsrInp, Len(UsrInp) - SpcPos)   ' Rechtes Wort

         Msg = "Das erste Wort ist " & LWord & "."

         Msg = Msg & " das zweite ist " & RWord & "."

 Else

         Msg = "Das waren nicht 2 Wörter."

 End If

 MsgBox Msg

End Sub