Access VBA: For Next Schleifen Teil 3 Exit for
Access VBA
Access VBA: For Next Schleifen Teil 3 Exit for
Sub Schleifen_For_Next()
For i = 1 To 100
k = k + 1
If k = 50 Then Exit For
Next i
MsgBox k
MsgBox i
End Sub
Access VBA: For Next Schleifen Teil 3 Exit for
Computer,Office,Access,VBA,Makro
Access,VBA,Schleife,For,Next,Exit
Im ersten Teil haben Sie erfahren, wie Sie eine einfache Schleife in VBA aufbauen können. Im zweiten Teil wurden
Ihnen gezeigt, wie Sie die Schrittweite verändern können. Im dritten Teil möchte ich Ihnen zeigen, wie Sie eine
Schleife vorzeitig verlassen können. Dies ist z.B. der Fall, wenn eine andere Bedingung erfüllt ist oder um zu
verhindern, dass die Schleife endlos durchlaufen wird.
Der Befehl dazu lautet Exit for.
Hier ein Beispiel, wo ein solcher Befehl zur Anwendung kommt.
Sub Schleifen_For_Next()
For i = 1 To 100
k = k + 1
If k = 50 Then Exit For
Next i
MsgBox k
MsgBox i
End Sub
In diesem Beispiel wird bereits nach 50 Durchläufen die Schleife verlassen, weil dann die If Then Anweisung bereits
erfüllt ist. Beide Werte k und i haben jetzt den Wert 50.
Im vierten Teil geht es weiter mit der Verschachtelung von Schleifen.