Wie verwende ich die Option Compare-Anweisung in VBA?

In VBA (Visual Basic for Applications) wird die `Option Compare`-Anweisung verwendet, um festzulegen, wie Zeichenfolgenvergleiche in einem Modul durchgeführt werden. Diese Anweisung bestimmt, ob die Vergleiche zwischen Zeichenfolgen die Groß- und Kleinschreibung berücksichtigen oder nicht. Es gibt hauptsächlich zwei Einstellungen, die du verwenden kannst:

  • Option Compare Binary: Dies ist die Standardeinstellung, bei der Zeichenfolgenvergleiche auf der Basis der binären Sortierreihenfolge verglichen werden. Das bedeutet, dass Groß- und Kleinschreibung unterschieden werden. Zum Beispiel wird „A“ ungleich „a“ angesehen.
  • Option Compare Text: Mit dieser Einstellung werden Zeichenfolgenvergleiche sprachunabhängig durchgeführt, wobei die Groß- und Kleinschreibung nicht unterschieden wird. Somit werden „A“ und „a“ als gleichwertig betrachtet.

Um die `Option Compare`-Anweisung zu verwenden, muss sie am Beginn eines Moduls, vor allen Prozeduren und Funktionen, platziert werden. Hier ein Beispiel, wie sie verwendet wird:

Option Compare Text

Sub VergleichDemo()
    Dim str1 As String
    Dim str2 As String
    
    str1 = "Haus"
    str2 = "haus"
    
    If str1 = str2 Then
        MsgBox "Die Zeichenfolgen sind gleich."
    Else
        MsgBox "Die Zeichenfolgen sind ungleich."
    End If
End Sub

In diesem Beispiel, mit `Option Compare Text`, würde die Meldung “Die Zeichenfolgen sind gleich.” angezeigt, da die Groß- und Kleinschreibung ignoriert wird.

Wichtig ist zu beachten, dass die `Option Compare`-Einstellung für das gesamte Modul gilt und den Standardverhalten für alle Zeichenfolgenvergleiche in diesem Modul bestimmt. Wenn du spezielle Vergleiche benötigst, die Groß- und Kleinschreibung berücksichtigen, ist es ratsam, diese explizit in deinem Code durchzuführen, etwa durch Funktionen wie `StrComp`, die verschiedene Methoden des Vergleichs unterstützen.

Unlock Your Potential

Excel

Basic - Advanced

Access

Access Basic - Advanced

Power BI

Power BI Basic - Advanced

Help us grow the project