Profil von RealGhostbuster

08.01.2018, 14:23

Live Countdown für eine bestimmte Uhrzeit in excel erstellen?

Hallo ich würde gerne einen live countdown von einer bestimmten Uhrzeit bis zu einer bestimmten uhrzeit in Excel erstellen z.B. wollte ich das wenn ich z.B 08:21Uhr eingebe und die Zielzeit 17:06 Uhr ist das excel mir einen countdown amliebsten einen live countdown zwischen den beiden Uhrzeiten ausgibt und anschließend halt bis null runterzählt. Im Stunden- und Minutenformat also 8:45; 8:44; 8:43; ... Stunden übrig oder irgendwie so. Kann mir da jemand helfen?

...zum Beitrag

Hilfreichste Antwort

von RealGhostbuster

08.01.2018, 15:11

Beispiel: In Zelle C1 steht Deine Von-Uhrzeit und in Zelle C2 Deine Bis-Uhrzeit.

Füge der Arbeitsmappe nachfolgendes Makro hinzu und starte im Anschluss das Makro "Time". Der Countdown beginnt zu laufen und wird in Zelle A1 angezeigt.

Für die letzten 10 Sekunden gibt es ein sekündliches PING. =)

Dim gCount As Date
Sub Time()
Range("A1") = "=c2 - c1"
Timer
End Sub
Sub Timer()
gCount = Now + TimeValue("00:00:01")
Application.OnTime gCount, "ResetTime"
End Sub
Sub ResetTime()
Dim xRng As Range
Set xRng = Application.ActiveSheet.Range("A1")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value < TimeSerial(0, 0, 10) Then Beep
If xRng.Value <= 0 Then
MsgBox "COUNTDOWN OVER"
Exit Sub
End If
Call Timer
End Sub

Jetzt aber her mit der positiven Bewertung! =))

...zur Antwort