VBA-Programmierung in Microsoft Excel

VBA-Begriff: Exit-Anweisung (Beispiel)

In diesem Beispiel wird die Exit-Anweisung verwendet, um eine For...Next-Schleife, eine Do...Loop-Anweisung und eine Sub-Prozedur zu verlassen.

Sub ExitAnweisungDemo()
Dim I, Zahl1
    Do                ' Endlosschleife.
        For I = 1 To 1000    ' 1000 Durchläufe.
            Zahl1 = Int(Rnd * 1000)    ' Zufallszahl generieren.
            Select Case Zahl1    ' Zufallszahl auswerten.
                Case 7: Exit For    ' Wenn 7, For...Next beenden.
                Case 29: Exit Do    ' Wenn 29, Do...Loop beenden.
                Case 54: Exit Sub    ' Wenn 54, Sub-Prozedur beenden.
            End Select
        Next I
    Loop
End Sub