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

Beiträge aus den Excel-Beispielen zum Thema "Countdown"