Exit-Anweisung

  • Artikel

Beendet einen Do…Loop -, For…Next -, Function -, Sub - oder Property -Codeblock.

Syntax

Exit Do
Exit For
Exit Function
Exit Property
Exit Sub

Die Syntax der Exit -Anweisung besteht aus folgenden Teilen:

Anweisung Beschreibung
Exit Do Bietet eine Möglichkeit, eine Do... Loop-Anweisung . Sie kann nur in einer Do...Loop-Anweisung verwendet werden. Exit Do überträgt die Steuerung auf die Anweisung, die auf die Loop-Anweisung folgt. Wird Exit Do innerhalb von geschachtelten Do...Loop-Anweisungen verwendet, überträgt diese Anweisung die Steuerung an die Schleife eine Ebene über der geschachtelten Ebene, in der Exit Do ausgeführt wird.
Exit For Ermöglicht das Beenden einer For-Schleife. Es kann nur in einem For... Weiter oder For Each... Nächste Schleife. Exit For überträgt die Steuerung an die Anweisung, die auf die Next-Anweisung folgt. Wird Exit For innerhalb von geschachtelten For-Anweisungen verwendet, überträgt diese Anweisung die Steuerung an die Schleife eine Ebene über der geschachtelten Ebene, in der Exit For ausgeführt wird.
Exit Function Beendet sofort die Function-Prozedur, in der sie angezeigt wird. Die Ausführung wird mit der Anweisung fortgesetzt, die auf die Anweisung folgt, von der Function aufgerufen wurde.
Exit Property Beendet sofort die Property-Prozedur , in der sie angezeigt wird. Die Ausführung wird mit der Anweisung fortgesetzt, die auf die Anweisung folgt, von der Property aufgerufen wurde.
Exit Sub Beendet sofort die Sub-Prozedur , in der sie angezeigt wird. Die Ausführung wird mit der Anweisung fortgesetzt, die auf die Anweisung folgt, von der Sub aufgerufen wurde.

Bemerkungen

Verwechseln Sie Exit -Anweisungen nicht mit End -Anweisungen. Exit definiert nicht das Ende einer Struktur.

Beispiel

Dieses Beispiel beendet mit der Exit-Anweisung eine For...Next-Schleife sowie eine Do...Loop- und eine Sub-Prozedur.

Sub ExitStatementDemo() 
Dim I, MyNum 
 Do ' Set up infinite loop. 
 For I = 1 To 1000 ' Loop 1000 times. 
 MyNum = Int(Rnd * 1000) ' Generate random numbers. 
 Select Case MyNum ' Evaluate random number. 
 Case 7: Exit For ' If 7, exit For...Next. 
 Case 29: Exit Do ' If 29, exit Do...Loop. 
 Case 54: Exit Sub ' If 54, exit Sub procedure. 
 End Select 
 Next I 
 Loop 
End Sub

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.