Thema Datum  Von Nutzer Rating
Antwort
Rot Endlos Loop bei keinem Treffer stoppen.
11.07.2022 13:21:00 Denni
NotSolved
11.07.2022 15:53:17 UweD
NotSolved
13.07.2022 13:27:37 Denni
NotSolved
13.07.2022 13:33:18 Denni
NotSolved
11.07.2022 16:01:56 ralf_b
NotSolved
13.07.2022 13:29:03 Denni
NotSolved
11.07.2022 19:53:47 Gast68745
NotSolved
13.07.2022 13:31:30 Denni
NotSolved

Ansicht des Beitrags:
Von:
Denni
Datum:
11.07.2022 13:21:00
Views:
118
Rating: Antwort:
  Ja
Thema:
Endlos Loop bei keinem Treffer stoppen.

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)

Else
Call TestSub
End If

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 

Else
Call TestSub
End If

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... crying


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Endlos Loop bei keinem Treffer stoppen.
11.07.2022 13:21:00 Denni
NotSolved
11.07.2022 15:53:17 UweD
NotSolved
13.07.2022 13:27:37 Denni
NotSolved
13.07.2022 13:33:18 Denni
NotSolved
11.07.2022 16:01:56 ralf_b
NotSolved
13.07.2022 13:29:03 Denni
NotSolved
11.07.2022 19:53:47 Gast68745
NotSolved
13.07.2022 13:31:30 Denni
NotSolved