Freigeben über


Exit-Anweisung

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. Bei Verwendung in geschachtelten Do... Loop Anweisungen überträgt Exit Do die Steuerung an die Schleife, die eine geschachtelte Ebene oberhalb der Schleife ist, in der Exit Do stattfindet.
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.

Hinweise

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.