Wie fügt man einen Countdown-Timer in Excel ein?
Wenn Sie bestimmte Daten innerhalb eines begrenzten Zeitraums bearbeiten möchten, können Sie ganz einfach einen Countdown-Timer in Ihr Excel-Arbeitsblatt einfügen. Sobald der Countdown abgelaufen ist, erscheint automatisch ein Dialogfeld, das Sie daran erinnert. Im Folgenden zeige ich Ihnen einen VBA-Code, mit dem Sie diesen Countdown-Timer direkt in Excel integrieren können.
Countdown-Timer in Excel einfügen
Countdown-Timer in Excel einfügen
Excel kann von sich aus keinen Countdown durchführen, doch mit dem folgenden VBA-Code können Sie den Zeitablauf problemlos zählen.
1. Wählen Sie eine Zelle aus und formatieren Sie sie als Zeitformat, indem Sie mit der rechten Maustaste auf die Zelle klicken und Zellenformat festlegen auswählen. Klicken Sie im sich öffnenden Dialogfenster auf Zeit, wählen Sie in der Liste unter Typ das Format 13:30:55 aus und bestätigen Sie mit OK, um das Dialogfenster zu schließen. Siehe Screenshot:
 |
 |
 |
2. Geben Sie die gewünschte Countdown-Zeit in die formatierte Zelle ein – siehe Screenshot:
3. Drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
4. Klicken Sie auf Einfügen > Modul, und fügen Sie anschließend den folgenden VBA-Code in das neue Fenster ein.
VBA: Countdown-Timer
Dim gCount As Date
'Updateby20140925
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("E1")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
MsgBox "Countdown complete."
Exit Sub
End If
Call Timer
End Sub
Tipp: E1 im obigen Code bezeichnet die Zelle, in die Sie in Schritt 2 die Zeit eingegeben haben.
5. Klicken Sie auf die Schaltfläche Ausführen oder drücken Sie F5, um den Countdown-Timer zu starten. Die Zeit läuft nun rückwärts.
6. Sobald der Countdown abgeschlossen ist, erscheint ein Dialogfeld zur Benachrichtigung.
Tipp: Sie können den laufenden Countdown nicht anhalten, es sei denn, Sie schließen die Arbeitsmappe.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins