So verwenden sie die exit-if-anweisung in vba (mit beispiel)

In VBA gibt es keine integrierte Exit If- Anweisung, aber Sie können eine solche einfach simulieren, indem Sie eine If- Anweisung mit einer GoTo- Anweisung verwenden.

Wie das in der Praxis funktioniert, zeigt das folgende Beispiel.

Beispiel: Verwendung der Exit IF-Anweisung in VBA

Nehmen wir an, wir möchten ein Makro erstellen, das den Benutzer auffordert, eine Ganzzahl kleiner als 10 einzugeben, und dann eine IF- Anweisung verwenden, um Folgendes zu tun:

• Wenn die eingegebene Ganzzahl kleiner als 10 ist, multiplizieren Sie sie mit 2 und zeigen Sie das Ergebnis in Zelle A1 an.
• Wenn die eingegebene Ganzzahl nicht kleiner als 10 ist, beenden Sie die IF-Anweisung und geben eine Fehlermeldung aus.

Wir können dazu die folgende Syntax verwenden:

 SubMultiplySomeValue ()

Dim inputInteger As Integer
     
'get integer from user
inputInteger = InputBox(" Please enter an integer less than 10 ")

'check if integer is less than 10
If inputInteger < 10 Then
Range(" A1 ").Value = inputInteger * 2
Else
GoTo FlagMessage
End If

FlagMessage:
MsgBox “ This number is not less than 10 ”
    
End Sub

Wenn wir dieses Makro ausführen, werden wir aufgefordert, eine Ganzzahl kleiner als 10: einzugeben.

Angenommen, wir geben den Wert 5 ein und drücken dann OK :

Da diese Ganzzahl kleiner als 10 ist, multipliziert die Unterprozedur den von uns eingegebenen Wert mit 2 und zeigt das Ergebnis in Zelle A1 an:

Angenommen, wir geben stattdessen den Wert 15 ein:

Wir würden in Excel das folgende Meldungsfeld erhalten:

Der von uns eingegebene Wert würde nicht mit 2 multipliziert und in Zelle A1 würden keine Ergebnisse angezeigt.

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

So beenden Sie Sub bei einem Fehler in VBA
So verwenden Sie IFERROR in VBA
So löschen Sie Dateien mit VBA