Alternative zu Stop
08.06.2014 13:29:38
Jürgen Tagge
Hier werden zwei Zeiten miteinander verglichen, eine Zielzeit mit einer laufenden Zeit. In der 3. Zeile findet ein Countdown statt, der bei 0 stoppen soll. Das funktioniert auch, aber der Debugger wird geöffnet. Ich möchte, dass er das nicht tut und habe es anstelle von Stop mit End versucht. Das funktioniert aber nicht, der Countdown läuft weiter.
Sub Weiter()
[a37] = Format([a36] - Time, "hh:mm:ss")
Application.OnTime Now + TimeValue("00:00:01"), "Weiter"
If [a37] = TimeValue("00:00:00") Then Stop
End Sub
Anzeige