Zeit rückwärts Zählen (Countdown)
11.12.2006 08:22:18
Fred
Mein ständiges Problem sind die Datums und Zeitberechnungen.
z.B. in Zelle A1 steht 30.09.2013 15:00:00
Zelle A2 wird ständig aktualisiert . Nun habe ich in Zelle A3 die Differenz im Format Stunden, Minuten und Sekunden gebildet. Nun soll in Zelle A4 Sekundengenau Zelle A3 rückwärtsgezählt werden. Wenn A1 erreicht ist, soll in B1 eine Meldung erscheinen. Also genau am 30.09.2013 15:00:00.
Zeitabfrage habe ich im Griff aber das Rückwärtszählen bringt mich zum Verzweifeln.
Mein Ansatz in VBA:
Public Const gsMacro As String = "UpdateClock"
Public gdNextTime As Double
Sub UpdateClock()
Worksheets("Tabelle1").Range("A2").Calculate
Range("A2) = " " & Format(Time, "hh:mm:ss")
Call StartClock
End Sub
Sub StartClock()
gdNextTime = Now + TimeSerial(0, 0, 1)
Application.OnTime earliesttime:=gdNextTime, procedure:=gsMacro, schedule:=True
End Sub
Nun bin ich gespannt, ob ich zu blöd bin oder ob es doch nicht so einfach ist wie gedacht.
Danke für eure Hilfe.
Ob ich lachen oder weinen muss, wird beantwortet.
Mit freundlichen Grüßen
Fred
P.S. VBA = gut bezieht sich auf den Bereich Automatisierung.