Countdown stoppen
11.05.2020 21:51:39
H.
ich benötige mal Eure Hilfe zu folgendem Problem:
Es soll ein Rätsel innerhalb einer bestimten Zeit gelöst werden. Dafür läuft ein Countdown herunter. Während der Countdown läuft soll Excel aber weiter bedient werden können (andere Makros ausgeführt werden, Tabellenblätter gewechselt werden, usw.)
- Läuft der Countdown vor der Lösungsfindung ab, springe ich zu einer anderen Seite ab - Game over.
- Wird das Rätsel vor Ablauf der Zeit gelöst, soll der Countdown gestoppt werden.
Ich habe im Netz einen Code gefunden den ich mir so angepasst habe, dass ich in einer bestimmten Zelle eine zu definierende Zeit rückwärts ablaufen lassen kann. Soweit läuft das alles sehr gut. Ich schaffe es aber nicht, dass ich den Countdown stoppen kann, wenn das Rätsel schon vor der abgelaufenen Zeit gelöst wurde.
Kann mir dazu bitte jemand helfen?
Hier mein bisheriges Makro:
Public Zeitlng As Long
Sub CountdownStarten()
Dim i As Integer
Dim CountdownSek As Long
CountdownSek = 600
For i = 0 To CountdownSek
Application.OnTime Now + TimeSerial(0, 0, i), "ZeitAusgeben"
Next i
Zeitlng = CountdownSek
End Sub
Sub ZeitAusgeben()
Range("G2").Value = TimeSerial(0, 0, Zeitlng)
Range("G2").NumberFormat = "[h]:mm:ss"
If Zeitlng = 0 Then
Call verloren
Exit Sub
End If
Zeitlng = Zeitlng - 1
End Sub