Mit VBA können Sie Vergleichsoperatoren verwenden, um Werte zu vergleichen. Mithilfe dieser Operatoren können Sie Werte vergleichen und als Ergebnis ein boolesches Wahr oder Falsch zurückgeben.
Die Liste der wichtigsten Vergleichsoperatoren in VBA
Zuerst zeigen wir die Liste der Vergleichsoperatoren an, die in VBA-Code verwendet werden können:
Vergleichsoperator | Erläuterung |
= |
Gleicht |
Nicht gleichzusetzen mit |
|
> |
Größer als |
>= |
Größer als oder gleich wie |
< |
Weniger als |
<= |
Weniger als oder gleich |
Gleicht
Die Gleicht Der Operator prüft, ob zwei Werte gleich sind und gibt True oder False zurück. Hier ist der Beispielcode:
123456789101112 | Dim intA As IntegerDim intB As IntegerDim blnResult As BooleanintA = 5intB = 5Wenn intA = intB DannblnResult = TrueAndersblnResult = FalseEnde Wenn |
In diesem Beispiel wollen wir prüfen, ob intA ist gleich intB. Wenn dies wahr ist, ist der Wert von Boolean blnErgebnis wird True sein, andernfalls wird es False sein.
Zuerst setzen wir Werte von intA und intB zu 5:
12 | intA = 5intB = 5 |
Danach verwenden wir die = Operator in der If-Anweisung, um zu überprüfen, ob die Werte von intA und intB sind gleich:
12345 | Wenn intA = intB DannblnResult = TrueAndersblnResult = FalseEnde Wenn |
Beide Variablen sind gleich 5, daher ist die blnErgebnis gibt True zurück:
Bild 1. Verwenden des Gleichheitsoperators
Nicht gleichzusetzen mit
Die Nicht Gleicht Der Operator prüft, ob zwei Werte ungleich sind und gibt True oder False zurück. Hier ist der Beispielcode:
Ein Fehler ist aufgetreten. Bitte versuchen Sie es später erneut. |
In diesem Beispiel wollen wir prüfen, ob intA ist ungleich zu intB. Wenn dies wahr ist, ist der Wert von Boolean blnErgebnis wird True sein, andernfalls wird es False sein.
Wir nehmen das Operator in der If-Anweisung, um zu überprüfen, ob die Werte von intA und intB sind anders:
12345 | Wenn intA intB DannblnResult = TrueAndersblnResult = FalseEnde Wenn |
Der Wert von intA ist 5 und der Wert von intB ist 6, die Variablen sind nicht gleich, daher ist die blnErgebnis gibt True zurück:
Bild 2. Verwenden des Nicht-Gleich-Operators
Größer als
Die Größer als Der Operator prüft, ob der erste Wert größer als der zweite Wert ist und gibt True oder False zurück. Hier ist der Beispielcode:
123456789101112 | Dim intA As IntegerDim intB As IntegerDim blnResult As BooleanintA = 6intB = 5Wenn intA > intB DannblnResult = TrueAndersblnResult = FalseEnde Wenn |
In diesem Beispiel wollen wir prüfen, ob intA ist größer als intB. Wenn dies wahr ist, ist der Wert von Boolean blnErgebnis wird True sein, andernfalls wird es False sein.
Darüber hinaus verwenden wir die > Operator in der If-Anweisung, um zu überprüfen, ob der Wert von intA ist größer als intB:
12345 | Wenn intA > intB DannblnResult = TrueAndersblnResult = FalseEnde Wenn |
Abschließend, wieintA ist größer als intB, das blnErgebnis gibt True zurück:
Abbildung 3. Verwenden des Größer-als-Operators
Größer als oder gleich wie
Die Größer als oder gleich wie Der Operator prüft, ob der erste Wert größer oder gleich dem zweiten Wert ist und gibt True oder False zurück. Hier ist der Beispielcode:
123456789101112 | Dim intA As IntegerDim intB As IntegerDim blnResult As BooleanintA = 5intB = 5Wenn intA >= intB DannblnResult = TrueAndersblnResult = FalseEnde Wenn |
In diesem Beispiel wollen wir prüfen, ob intA ist größer oder gleich intB. Wenn dies wahr ist, ist der Wert von Boolean blnErgebnis wird True sein, andernfalls wird es False sein.
Wir verwenden die >= Operator in der If-Anweisung, um zu überprüfen, ob der Wert von intA ist größer oder gleich intB:
12345 | Wenn intA >= intB DannblnResult = TrueAndersblnResult = FalseEnde Wenn |
Zusammenfassend lässt sich sagen, dass, da beide Variablen gleich 5 sind, die blnErgebnis gibt True zurück:
Abbildung 4. Verwenden des Größer-als-oder-Gleich-Operators
Weniger als
Die Weniger als Der Operator prüft, ob der erste Wert kleiner als der zweite Wert ist und gibt True oder False zurück. Hier ist der Beispielcode:
123456789101112 | Dim intA As IntegerDim intB As IntegerDim blnResult As BooleanintA = 5intB = 6Wenn intA < intB DannblnResult = TrueAndersblnResult = FalseEnde Wenn |
In diesem Beispiel wollen wir prüfen, ob intA ist weniger als intB. Wenn dies wahr ist, ist der Wert von Boolean blnErgebnis wird True sein, andernfalls wird es False sein.
Wir nehmen das < Operator in der If-Anweisung, um zu überprüfen, ob der Wert von intA ist weniger als intB:
12345 | Wenn intA < intB DannblnResult = TrueAndersblnResult = FalseEnde Wenn |
Wie intA ist weniger als intB, das blnErgebnis gibt True zurück:
Abbildung 5. Verwenden des Kleiner-als-Operators
Weniger als oder gleich
Die Weniger als oder Gleicht Der Operator prüft, ob der erste Wert kleiner oder gleich ist und gibt True oder False zurück. Hier ist der Beispielcode:
123456789101112 | Dim intA As IntegerDim intB As IntegerDim blnResult As BooleanintA = 5intB = 5Wenn intA <= intB DannblnResult = TrueAndersblnResult = FalseEnde Wenn |
In diesem Beispiel wollen wir prüfen, ob intA ist kleiner oder gleich intB. Wenn dies wahr ist, ist der Wert von Boolean blnErgebnis wird True sein, andernfalls wird es False sein.
Wir nehmen das <= Operator in der If-Anweisung, um zu überprüfen, ob der Wert von intA ist kleiner oder gleich intB:
12345 | Wenn intA <= intB DannblnResult = TrueAndersblnResult = FalseEnde Wenn |
Zusammenfassend lässt sich sagen, dass, da beide Variablen gleich 5 sind, die blnErgebnis gibt True zurück:
Abbildung 6. Verwenden des Kleiner-als-oder-Gleich-Operators
Ist Betreiber
Der Is-Operator testet, ob zwei Objektvariablen das gleiche Objekt enthalten:
12345678910111213 | Unter CompareObjects()Dim ws1 als Arbeitsblatt, ws2 als ArbeitsblattSet ws1 = Sheets("Sheet1")Set ws2 = Sheets("Sheet2")Wenn ws1 ws2 ist, dannMsgBox "Gleiche WS"AndersMsgBox "Verschiedene WSs"Ende WennEnd Sub |
Gefällt mir Betreiber
Der Like-Operator kann verwendet werden, um ungenaue Textübereinstimmungen zu finden. In diesem Beispiel wird getestet, ob eine Zeichenfolge mit „Mr.“ beginnt.
1234567891011121314 | Abo LikeDemo()Dim strName als StringDim blnResult As BooleanstrName = "Herr Michael James"Wenn strName wie "Mr*" ThenblnResult = TrueAndersblnResult = FalseEnde WennEnd Sub |
Wenn Sie lernen möchten, wie man Strings vergleicht, klicken Sie hier: VBA Compare Strings - StrComp
Wenn Sie lernen möchten, wie man Vergleichsoperatoren verwendet, klicken Sie hier: VBA Logical Operators