Ohne Goto aus Schleifen aussteigen
29.02.2004 16:40:23
Franz W.
wie kann man ohne Sprungmarke aus mehreren Schleifen rauskommen?
Beispiel: ich suche nach einem Datum, dazu sind zwei Schleifen nötig. Sobald das erste den Bedingungen entsprechende Datum gefunden ist müssen BEIDE Schleifen verlassen werden, damit nicht mehr weitergesucht wird. Mit "Exit For" komme ich aber nur aus der inneren Schleife raus! Also "Goto weiter"...
Da es aber hier immer heißt, dass "Goto" zu vermeiden ist, hab ich's jetzt mal so konstruiert: eine zusätzliche If-Abfrage um aus der äußeren Schleife rauszukommen:
Sub Test
UrlEndDat = 0
For mm = columAnfDat To clTotal Step clJan
For tt = 3 To 33
If Cells(tt, mm + 10) = "" And Cells(tt - 1, mm + 10) <> "" Then
If Cells(tt, mm) > UrlAnfDat Then
UrlEndDat = Cells(tt - 1, mm)
Exit For
End If
End If
Next
If UrlEndDat <> 0 Then
Exit For
End If
Next
End Sub
Ist das schon der Weisheit letzter Schluss? Oder MACHT MAN(!) das anders...??
Vielen Dank im Voraus und Grüße
Franz