[VBA 2002] Exit For über zwei Ebenen

20/12/2009 - 09:41 von Peter Schleif | Report spam
Guten Morgen.

Ich stehe gerade etwas auf dem Schlauch: Wie komme ich aus zwei
verschachtelten For-Schleifen mit _einem_ Sprung raus? Und nicht nur aus
der inneren?

For i = 1 To 10
For j = 1 To 10

'/Syntax-Fehler/
if i=5 and j=5 then exit for 2

Next
Next

Peter
 

Lesen sie die antworten

#1 Andreas Killer
20/12/2009 - 09:55 | Warnen spam
Peter Schleif schrieb:

Ich stehe gerade etwas auf dem Schlauch: Wie komme ich aus zwei
verschachtelten For-Schleifen mit _einem_ Sprung raus? Und nicht nur aus
der inneren?


Mal vom unschönen Manipulieren der Zàhlervariablen abgesehen, IMHO nur
mit GoTo.

For i = 1 To 10
For j = 1 To 10


if i=5 and j=5 then GoTo Ende
Next
Next


Ende:

Man kann aber auch aus 3 FOR-Schleifen gleichzeitig austreten:

For I = 1 To 10
For j = 1 To 10
GoSub TestExit
Next
Next
For I = 1 To 0
TestExit:
If I = 5 And j = 5 Then Exit For
Return
Next

Okay, funktioniert, ist Blödsinn, sieht aber nett aus. :-)))

Andreas.

Ähnliche fragen