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