Äußere Schleife aus innerer Schleife verlassen
Martin
wie allgemein bekannt ist, kann eine Schleife mit Exit For verlassen werden. Kann in einer doppelten Schleife die äußere Schleife einfach aus der inneren Schleife verlassen werden.
Sub Schleifentest()
Dim i As Long, j As Long
For i = 1 To 10
For j = 1 To 10
Debug.Print "j-Durchlauf: " & j
Exit For 'Beendet nur innere Schleife, soll aber auch äußere Schleife beenden
Next j
Debug.Print "i-Durchlauf: " & i
Next i
End Sub
Ich würde eine zusätzliche Variable Dim ExitLoop As Boolean definieren und in der inneren Schleife auf True setzen, wenn die äußere Schleife (If ExitLoop = True Then Exit For) verlassen werden soll. - Aber vielleicht geht es ja einfacher ?!
Viele Grüße
Martin