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.