Es gibt oft verschachtelte Bedingungen unter VB. Wer mit VBA programmiert hat, kennt den einzigen Weg, dies zu implementieren: indem man zwei oder mehr If…Then-Bedingungen verschachtelt. Unter Visual Basic nutzen Sie dazu die AndAlso-Verkettung. Und auch bei Ausdrücken mit Oder können Sie mit einem neuen Schlüsselwort die Performance verbessern. <\/b><\/p>\n
Wenn Sie unter VBA eine Aktion nur durchführen wollen, wenn zwei Bedingungen wahr sind, dann gelingt das am einfachsten mit der folgenden Schreibweise:<\/p>\n
If <\/span>Bedingung1 = True<\/span> And Bedingung2 = True<\/span> Then<\/span>\r\n 'Aktion ausführen\r\nEnd If<\/span><\/pre>\nZunächst einmal lässt sich dies noch vereinfachen, denn es reicht, die Bedingungen anzugeben – diese werden ja schon auf den Wert True <\/b>geprüft:<\/p>\nIf <\/span>Bedingung1 And Bedingung2 Then<\/span>\r\n 'Aktion ausführen\r\nEnd If<\/span><\/pre>\nNur, wenn Sie prüfen wollen, ob der Ausdruck Bedingung1 <\/b>oder Bedingung2 <\/b>falsch ist, müssen Sie zum Beispiel Bedingung 1 = False <\/b>angeben. Manchmal kommen Sie mit dieser Schreibweise jedoch nicht weiter – zum Beispiel, wenn Bedingung2 <\/b>nur auswertbar ist, wenn Bedingung1 <\/b>wahr ist. Wenn Sie also in der ersten Bedingung testen, ob ein bestimmtes XML-Element vorhanden ist und in der zweiten dann prüfen, ob der Wert des XML-Elements einen bestimmten Wert hat, funktionierte das nur fehlerfrei, wenn die erste Bedingung erfüllt ist. Ist das nicht der Fall, ist XML-Element nicht vorhanden und die zweite Bedingung löst beim Zugriff auf das XML-Element einen Fehler aus. In diesem Fall verwenden wir zwei verschachtelte If…Then<\/b>-Bedingungen:<\/p>\nIf <\/span>Bedingung1 = True<\/span> Then<\/span>\r\n If <\/span>Bedingung2 = True<\/span> Then<\/span>\r\n 'Aktion ausführen\r\n End If<\/span>\r\nEnd If<\/span><\/pre>\nUnter VB können Sie dies viel einfacher formulieren. Dazu nutzen wir das Schlüsselwort AndAlso<\/b>:<\/p>\nIf <\/span>Bedingung1 = True<\/span> AndAlso Bedingung2 = True<\/span> Then<\/span>\r\n 'Aktion ausführen\r\nEnd If<\/span><\/pre>\nMöchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Visual Basic Entwickler<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 200 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t