Wie verwende ich die Funktion InStrRev in VBA?

Die Funktion `InStrRev` in VBA wird verwendet, um die Position des letzten Vorkommens einer bestimmten Zeichenfolge innerhalb einer anderen Zeichenfolge zu ermitteln. Sie durchsucht die Zeichenfolge von rechts nach links. Hier ist, wie Sie sie verwenden können:

Syntax


InStrRev(StringCheck, StringMatch, [Start], [Compare])

StringCheck: Erforderlich. Die Zeichenfolge, die durchsucht werden soll.
StringMatch: Erforderlich. Die Zeichenfolge, nach der gesucht wird.
Start: Optional. Die Position, an der mit der Suche begonnen werden soll (von rechts nach links). Wenn es weggelassen wird, beginnt die Suche am Ende der Zeichenfolge.
Compare: Optional. Gibt die Art des Vergleichs an. Die Werte können folgende sein:

`vbBinaryCompare` (0): Führt einen binären Vergleich durch.
`vbTextCompare` (1): Führt einen Textvergleich durch.
`vbDatabaseCompare` (2): Nur in Microsoft Access, vergleicht auf der Grundlage der Informationen in der Datenbank.

Beispiel

Hier ist ein Beispiel, das zeigt, wie Sie `InStrRev` verwenden können:


Sub BeispielInStrRev()
    Dim text As String
    Dim suche As String
    Dim position As Long

    text = "Das ist ein Beispieltext, um InStrRev zu demonstrieren."
    suche = "e"

    ' Suchen Sie das letzte Vorkommen von "e" in "text"
    position = InStrRev(text, suche)

    If position > 0 Then
        MsgBox "Das letzte Vorkommen von '" & suche & "' ist an Position: " & position
    Else
        MsgBox "Die Zeichenfolge '" & suche & "' wurde nicht gefunden."
    End If
End Sub

In diesem Beispiel wird das letzte Vorkommen des Buchstabens “e” in der Zeichenfolge ermittelt und die Position wird in einer MessageBox angezeigt. Wenn das Zeichen nicht gefunden wird, zeigt die Nachricht an, dass die Zeichenfolge nicht gefunden wurde. Beachten Sie, dass die Position ab 1 gezählt wird.

facebooklinkedin