Hallo liebes Forum,
ich benötige ein weiteres Mal eure Unterstützung...
Folgendes Szenario:
Ich habe einen Code, welcher bestimmte Zellen auf eine Zahl außer 0 abfrägt und dann -1 nimmt.
Mein Sub beinhaltet verschiedene Abschnitte die mit einer Zufallszahl mit z.b if ZFZ = 1 Then aufgerufen werden.
Bei einem Treffer startet eine Aktion. Wenn er nichts findet, ruft er erneut den Code / Sub + einer neuen Zufallszahl mit folgendem Befehl auf: (und immer so weiter)
Nun habe ich das Problem, dass ich bei einem Nicht-Treffer und dem Fall, dass die anderen Zellen ebenfalls 0 enthalten eine Endlos-Schleife verursache.
Else Exit Sub kann ich nicht verwenden, da die anderen Punkte im Sub noch durchgeganden werden müssen und weitere Male abgefragt werden müssen.
Welche Möglichkeiten stehen mir hier offen? Gibt es evnt. einen Befehl, welcher mir bei einer bestimmten Dauer oder Abfolge den Loop auflöst.
Den gesamten Code möchte ich ungerne umschreiben oder in Subs aufteilen, da es ca. 8000 Zeilen sind, die nach einer Abfrage ohne Erfolg immer mit
ergänzt werden und eine neue Zufallszahl generiert wird.
Der Code funktioniert, bis in jeder Zelle eine 0 steht und die Zufallszahl endlos generiert wird.
Dass bei einer 0 der Code stoppt kann ich ebenfalls nicht sagen, da sonst die anderen Abfragen nicht mehr funktionieren, die ebenfalls für etwas anderes benötigt werden, daher stellt sich mir die weitere Frage, kann man in einem Sub bei einer IF-Abfrage zu einer anderen Code-Zeile im Sub springen? Und löst das mein Problem?
Bzw. einen Nicht-Treffer definieren und so ein Else dazugeben?
Vielen Dank für alle Kommentare, Tipps und Beiträge. Den Code kann ich leider nicht veröffentlichen. Tut mir erneut leid für die Unklarheit... 
|