<< Click to Display Table of Contents >> Left (Funktion)

Left(String, n)

Liefert eine Zeichenkette, die aus den ersten n Zeichen der übergebenen Zeichenkette besteht.

Siehe auch: Len, Mid, Right

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