
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.