Timer abbrechen
23.06.2013 14:09:29
andrea
ich habe einen Timer programmiert, der nach Ablauf der Zeit beep macht (kein Lautsprecher vorhanden) und ein Textfeld erscheint.
Es wird gestartet durch eine Form der ein Makro zugewiesen wurde. Läuft auch ganz gut.
Jetzt versuche ich noch einen Button zum Abbrechen zu generieren. Leider hängt sich dann das Programm in beiden Varianten in einer Schleife auf und hört nicht mehr auf zu beepen.
Hat jemand eine Ahnung wo der (Denk-)Fehler liegt?
Danke im Voraus
Andrea
Option Explicit
Public I As Integer
Public CountdownTime As Long
Public Restzeit As Long
Sub CountdownStarten()
CountdownTime = Range("c2")
For I = 0 To CountdownTime
Application.OnTime Now + TimeSerial(0, 0, I), "ZeitAusgeben"
Next I
Restzeit = CountdownTime
End Sub
Sub ZeitAusgeben()
Range("B20").Value = TimeSerial(0, 0, Restzeit)
Range("B20").NumberFormat = "h:mm:ss"
If Restzeit = 0 Then
Call ton
'MsgBox "Fertig!"
Exit Sub
End If
Restzeit = Restzeit - 1
End Sub
Sub CountdownStoppen1()
Restzeit = 0
I = CountdownTime
Exit Sub
End Sub
Sub CountdownStoppen2()
End
End Sub