Die Left()-, Right()-, Mid()-Funktionen

Beginnen wir mit dem Trio Left(), Right(), Mid(). Diese Funktionen liefern als Ergebnis einen Teil der bearbeiteten Zeichenkette zurück. Mit dem folgenden Code

Option Explicit

'diese Konstante gilt im ganzen Modul für alle Beispiele
Const m_cstrName = "Lorenz Ernst Hölscher"

Sub VornamenFinden()
    Dim strVorname As String

    strVorname = Left(m_cstrName, 6)
    MsgBox "Vorname: " & strVorname
End Sub

ermittelt die Left()-Funktion die linken bzw. ersten sechs Zeichen vom Inhalt der Konstanten m_cstrName, so dass in strVorname nun Lorenz steht. Sie können die Prozedur VornamenFinden am einfachsten aufrufen, wenn Sie mit dem Cursor hineinklicken und diese dann mit <F5> starten.

Entsprechend funktioniert (mit der gleichen Modul-öffentlichen Konstante m_cstrName am Anfang des Moduls) die Right()-Funktion:

Sub NachnamenFinden()
    Dim strNachname As String

    strNachname = Right(m_cstrName, 8)
    MsgBox "Nachname: " & strNachname
End Sub

Damit sehen Sie beim Ausführen die letzten acht Zeichen, also Hölscher in der angezeigten Meldung. Wir werden uns später noch einmal mit Right() beschäftigen.

Die Mid()-Funktion ermöglicht das Herausschneiden einzelner Textteile an beliebiger Position, sie hat daher einen optionalen Parameter mehr:

Sub ZweitenVornamenFinden()
    Dim strZweiterVorname As String
    
    strZweiterVorname = Mid(m_cstrName, 8, 5)
    MsgBox "Zweiter Vorname: " & strZweiterVorname
End Sub

In diesem Code zum Ermitteln des zweiten Vornamens liefert Mid() ab der achten Position (inklusive) die nächsten fünf Zeichen, hier also Ernst. Wenn Sie den dritten Parameter für die Anzahl der Folgezeichen weglassen, erhalten Sie den ganzen Rest ab der genannten Startposition.

Die 12 wichtigsten VBA-Text-Funktionen

Die Left()-, Right()-, Mid()-Funktionen

Auf dieser Seite