Wie verwende ich die Exit-Anweisung in VBA?

In VBA (Visual Basic for Applications) wird die Exit-Anweisung verwendet, um die Ausführung eines Blocks vorzeitig zu beenden. Die Exit-Anweisung kann in verschiedenen Kontexten verwendet werden, darunter Schleifen, Subroutinen und Funktionen. Hier sind einige Beispiele, wie Sie die Exit-Anweisung verwenden können:

1. Exit For

Die `Exit For`-Anweisung beendet die Ausführung einer For-Schleife. Sie wird häufig verwendet, um eine Schleife vorzeitig zu verlassen, wenn eine bestimmte Bedingung erfüllt ist.

Sub ExitForExample()
    Dim i As Integer
    For i = 1 To 10
        If i = 5 Then
            Exit For
        End If
        Debug.Print i
    Next i
    ' Ausgabe: 1, 2, 3, 4
End Sub

2. Exit Do

Die `Exit Do`-Anweisung beendet eine Do-Schleife vorzeitig.

Sub ExitDoExample()
    Dim i As Integer
    i = 1
    Do While i <= 10
        If i = 5 Then
            Exit Do
        End If
        Debug.Print i
        i = i + 1
    Loop
    ' Ausgabe: 1, 2, 3, 4
End Sub

3. Exit Sub

Die `Exit Sub`-Anweisung beendet die Ausführung einer Subroutine vorzeitig.

Sub ExitSubExample()
    Dim condition As Boolean
    condition = True
    If condition Then
        Exit Sub
    End If

    ' Dieser Code wird nicht ausgeführt, wenn condition True ist
    Debug.Print "Dieser Text wird nicht angezeigt."
End Sub

4. Exit Function

Die `Exit Function`-Anweisung beendet die Ausführung einer Funktion vorzeitig.

Function ExitFunctionExample() As Integer
    Dim condition As Boolean
    condition = True
    If condition Then
        Exit Function
    End If

    ' Dieser Code wird nicht ausgeführt, wenn condition True ist
    ExitFunctionExample = 42
End Function

In jedem dieser Szenarien wird die Exit-Anweisung verwendet, um die Kontrolle über den Ablauf des Codes zu verbessern und bei Bedarf frühzeitig aus der aktuellen Anweisung auszusteigen.

Unlock Your Potential

Excel

Basic - Advanced

Access

Access Basic - Advanced

Power BI

Power BI Basic - Advanced

Help us grow the project