Herbers Excel-Forum - das Archiv

Countdown

Bild

Betrifft: Countdown
von: Marcel

Geschrieben am: 15.02.2005 22:29:16
Ich suche eine Möglichkeit, einen "Countdown" zu entwickeln, und mit folgender Funktion zu versehen:
- Beim öffnen einer Arbeitsmappe fängt ein Timer an zu zählen,
der sichtbar ist (Man sieht, wie die Uhr runter zählt)
- Nach 5 Minuten erklingt ein Ton und die Arbeitsmappe wird
automatisch geschlossen.
Kann mir da jemand helfen?
Bild

Betrifft: AW: Countdown
von: Josef Ehrensberger

Geschrieben am: 15.02.2005 22:40:24
Hallo Marcel!


Hier mal der Code für den Contdown:

Sub timer()
Dim ende As Date
ende = Now + TimeSerial(0, 5, 0)
Do
DoEvents
If ende < Now Then Exit Do
Sheets("Tabelle1").Range("A1") = Format(ende - Now, "hh:mm:ss")
Loop
ThisWorkbook.Close True
End Sub

Makros zum abspielen von Sounds findest du in der Recherche!
Gruß Sepp


P.S.: Rückmeldung nicht vergessen!
 Bild
Excel-Beispiele zum Thema "Countdown"
Countdown in Statusleiste