öffentlich
Redaktion Druckversion

Die 12 wichtigsten VBA-Text-Funktionen

4.25
(4)
Beitrag bewerten
Stand: 22. Juni 2012

Mehrere Fundstellen in einer Zeichenkette

Mit der InStr()-Funktion können Sie nicht nur das erste Auftreten einer gesuchten Textstelle ermitteln, sondern auch folgende.

Damit sind wir beim zweiten Vornamen und damit der nächsten Herausforderung. Er beginnt beim ersten Leerzeichen, welches wir ja schon gefunden haben. Aber er endet beim zweiten Leerzeichen, welches mit bisheriger Technik nicht zu finden ist.

Aber auch das zweite Leerzeichen lässt sich mit InStr() finden! Die InStr()-Funktion hat einen optionalen Parameter (interessanterweise vor den übrigen, was bei keiner anderen Funktion so ist), der angibt, ab welcher Position die Suche beginnen soll.

Beginnen Sie also nach der Position des ersten Leerzeichens zu suchen, findet InStr() das zweite, wie der folgende Code zeigt:

Sub ZweitenVornamenBesserFinden()
    Dim strZweiterVorname As String
    Dim intLeerPos1 As Integer
    Dim intLeerPos2 As Integer
    
    intLeerPos1 = InStr(m_cstrName & " ", " ")
    intLeerPos2 = InStr(intLeerPos1 + 1, m_cstrName & " ", " ")
    strZweiterVorname = Mid(m_cstrName, intLeerPos1 + 1, _
        intLeerPos2 - intLeerPos1 - 1)
    MsgBox "Zweiter Vorname: " & strZweiterVorname
End Sub

Beachten Sie bitte das Leerzeichen und den Unterstrich am Ende der einen Zeile, die dem Compiler signalisieren, dass die folgende Zeile noch dazugehört.

Mitglied werden

Als zahlendes Mitglied von akademie.de haben Sie vollen Zugriff auf alle Inhalte und können alle PDF-Dateien, Checklisten, Mustervorlagen und Anwendungen herunterladen.

Sind Sie sich noch unsicher? Dann wählen Sie die Option “akademie.de kostenlos testen”. So können Sie sich 14 Tage in Ruhe umschauen. Downloads stehen Ihnen in dieser Zeit nicht zur Verfügung. Gefällt Ihnen akademie.de nicht, reicht ein formloser Widerruf per E-Mail innerhalb der ersten 14 Tage. Es entstehen für Sie keine Kosten. Widerrufen Sie nicht, erhalten Sie nach Ablauf von 14 Tagen vollen Zugriff und der Mitgliedsbeitrag wird abgebucht.

Ich bin bereits Mitglied
Mitglied werden!
Ich entscheide mich für folgende Zahlungsweise:

Inhalt

Downloads zu diesem Beitrag

Newsletter abonnieren