Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1032to1036
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Countdown!

Countdown!
12.12.2008 13:07:31
Werner
Hallo
ich suche einen Countdown Zähler nach hh:mm:ss.
Ich habe in Zelle A4 die Uhrzeit z.B. 15:00:00 Uhr stehen.
Wie kann jetzt der Countdown bis 15:00:00 Uhr runter zählen?
evtl. auch mit Ton wenn der Countdown auf 0 ist.
Vielen Dank.
Gruss Werner

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Countdown!
12.12.2008 13:30:56
chris
Hallo Werne,
das geht so:
Füge die beiden MAkros in ein Modul ein und starte das Makro
"my_Procedure()"
es wird dann in Zelle A1 15:00:00 geschrieben und immer 1 sekunde abgezogen.

Sub test()
Application.OnTime Now + TimeValue("00:00:01"), "test"
Cells(1, 1).Value = Cells(1, 1).Value - TimeValue("00:00:01")
End Sub



Sub my_Procedure()
Cells(1, 1) = "15:00:00"
Application.OnTime Now + TimeValue("00:00:01"), "test"
End Sub


AW: Countdown! NAchtrag
12.12.2008 13:35:37
chris
Damit der ontime dann sauber beendet wird bei 0 gehts so:

Sub test()
Application.OnTime Now + TimeValue("00:00:01"), "test"
If Cells(1, 1).Value = 0 Then
Application.OnTime Now + TimeValue("00:00:01"), "test", Schedule:=False
Exit Sub
End If
Cells(1, 1).Value = Cells(1, 1).Value - TimeValue("00:00:01")
End Sub



Sub my_Procedure()
Cells(1, 1) = "00:00:10"
Application.OnTime Now + TimeValue("00:00:01"), "test"
End Sub


Rückmeldung ob erfolgreich wäre nett !!!
gruß Chris

Anzeige
AW: Countdown!
12.12.2008 14:05:00
Werner
Hallo hajo,
alles klar.
Vielen Dank
Gruss Werner

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige