Schleifen mit GoTo verlassen

Moin aus Hamburg,
ich habe ein Projekt mit 20 Blöcken, in denen sich jeweils For ... Next Schleifen befinden und in den Schleifen steht jeweils ein If ... End If Block. Der End ... If Block wird mit einer GoTo Anweisung verlassen, wenn eine bestimmte Bedingung erfüllt ist. Das GoTo führt mit aktualisierten Variablen an den Anfang des Makros zurück, um die 20 Blöcke wiederholt zu durchlaufen. So der Plan ...
Bevor es die im Zusammenhang mit GoTo die grundsätzlich gerechtfertigte Aufregung gibt, hier eine Erklärung. Dieses Konstrukt ist nicht "schön", erspart aber die Verschachtelung von 20 Schleifen mit einer unzumutbaren Laufzeit.
Das Makro läuft ohne Fehlermeldungen durch, aber das Resultat unterscheidet sich erheblich von dem einer manuellen Simulation, und in das Arbeitsblatt werden auch nicht die erwarteten Werte eingetragen.
Meine Frage: Können Variable ihren Wert verlieren oder ändern, wenn For ... Next Schleifen oder If ... End If Blöcke so unkonventionell mit GoTo verlassen werden? Stichworte für eigene Lösungsversuche reichen erst einmal aus.
Zusatzinfos: Alle Variablen sind einzeln typgerecht mit Dim deklariert. Das Makro beginnt mit der Abschaltung "zeitfressender" Funktionen wie ScreenUpdating, Cursor, DisplayAlerts, EnableEvents, DisplayStatusBar, und die Berechnung wir auf xlCalculationManual gesetzt. An den Stellen, wo aktuelle Tabellenwerte gebraucht werden, erfolgt eine zwangsweise Neuberechnung mit ApplicationCalculate. Versuche mit Do ... While o.ä. waren bisher nicht erfolgreich.
Bin gespannt, schon mal vielen Dank

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin,
vielen Dank für die bisherigen Antworten. Ich glaube, dass eine Beschreibung in ein paar Zeilen nicht ausreicht. Deshalb im Anhang ein Auszug aus der Prozedur mit dem Fall K06 stellvertretend für alle (K01 ... K20): https://www.herber.de/bbs/user/153434.txt
Do ... While ohne Erfolg getestet. Die Bedingung, um diese Schleife zu verlassen, wird in der Zeile 'improvement detected' erfüllt. Es müssen danach aber noch weitere Programmzeilen bis zum GoTo ausgeführt werden, was bei Do ... While ausgelassen wird. Abgesehen davon stellt sich noch die Frage, wie der Rücksprung zu 'RestartLoop' mit Do ... While gehen soll.
Hintergrund zu dieser exotisch erscheinenden Prozedur: Es soll ein globales Maximum ermittelt werden, das von den Werten K01 ... K20 abhängt. Zielgrößen sind die optimierten Werte für Kxx. Die Emittlung der lokalen Optima für Kxx reicht nicht aus, weil die Kxx sich gegenseitig beeinflussen. Das macht so lange Rücksprünge zu 'RestartLoop' erforderlich, bis das globale Optimum erreicht ist und damit optimierte Kxx ermittelt sind.
Weitere Hinweise: Keine der Variablen im gesamten Projekt ist weder als 'global' noch als 'local' deklariert. Sprungmarken kommen im gesamten Projekt nur einmal vor. Kritisch sind die Wertzuweisungen an Zellen in Arbeisblättern, z.B. TgtRngSet(5, 103).Value = SrcRngSet(5, 101).Value, beide als Range gesetzt.
Danke schon mal
Dieter

Dim blnFound As Boolean For Mde = 1 To 2 'mode '1' for case 1, mode '2' for case2 For Day = DayMin To DayMax blnFound = False If Not ((Mde = 1 And IntFac(6, 1) = IntFac(6, 2)) And (Mde = 2 And IntFac(26, 1) = IntFac(26, 2))) Then If Mde = 1 Then 'H:A LoopMax = 0 TgtRngTdy(10, 109).Value = 1 For K06 = IntFac(6, 1) To IntFac(6, 2) If K06 = 1 Then TgtRngTdy(5, 103).Value = 0 'reset TgtRngSet(6, 1).Value = K06 Application.Calculate If SrcRngTdy(5, 101).Value > TgtRngTdy(5, 103).Value Then 'improvement detected TgtRngTdy(5, 103).Value = SrcRngTdy(5, 101).Value LoopMax = SrcRngTdy(5, 101).Value TgtRngTdy(10, 109).Value = K06 If LoopMax > GnlMax Then GnlMax = LoopMax blnFound = True Exit For End If End If Next K06 End If If Not blnFound Then If Mde = 2 Then '1-X-2 LoopMax = 0 For K06 = IntFac(26, 1) To IntFac(26, 2) If K06 = 1 Then TgtRngTdy(5, 144).Value = 0 'reset TgtRngSet(6, 1).Value = K06 Application.Calculate If SrcRngTdy(5, 142).Value > TgtRngTdy(5, 144).Value Then 'improvement detected TgtRngTdy(5, 144).Value = SrcRngTdy(5, 142).Value LoopMax = SrcRngTdy(5, 142).Value TgtRngTdy(10, 150).Value = K06 If LoopMax > GnlMax Then GnlMax = LoopMax blnFound = True Exit For End If End If Next K06 End If End If End If Next Day Next Mde

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread