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"