Zum Hauptinhalt springen

Wie fügt man einen Countdown-Timer in Excel ein?

Author: Sun Last Modified: 2025-05-28

Wenn Sie Daten innerhalb einer begrenzten Zeit bearbeiten möchten, können Sie einen Countdown-Timer in Ihr Daten-Arbeitsblatt einfügen. Wenn der Countdown abgelaufen ist, erscheint ein Pop-up-Dialog, um Sie daran zu erinnern. Hier zeige ich Ihnen einen VBA-Code, um einen Countdown-Timer in Excel einzufügen.

Countdown-Timer in Excel einfügen


Countdown-Timer in Excel einfügen

In Excel kann keine Zeit heruntergezählt werden, aber Sie können den folgenden VBA-Code kopieren, um die Zeit herunterzuzählen.

1. Wählen Sie eine Zelle aus und formatieren Sie diese als Uhrzeitformat, indem Sie mit der rechten Maustaste auf die Zelle klicken und Zellenformat festlegen auswählen. Klicken Sie dann im Dialogfenster auf Uhrzeit und wählen Sie 13:30:55 in der Typ-Liste aus. Klicken Sie abschließend auf OK, um das Dialogfeld zu schließen. Siehe Screenshot:

a screenshot showing how to open the Format Cells dialog
a screenshot of arrow
a screenshot of changing the cell formatting to Time

2. Geben Sie die Zeit, die Sie herunterzählen möchten, in die formatierte Zelle ein. Siehe Screenshot:

a screenshot showing the time in cell

3. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

4. Klicken Sie auf Einfügen > Modul und kopieren Sie den folgenden VBA-Code in das neue Fenster.

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 steht für die Zeitzelle, die Sie im Schritt 2 eingegeben haben.

5. Klicken Sie auf die Schaltfläche Ausführen oder drücken Sie F5, um den Countdown-Timer zu starten. Jetzt wird die Zeit heruntergezählt.

a screenshot of the countdown starting after running the code

6. Und wenn der Countdown abgeschlossen ist, erscheint ein Pop-up-Dialog, um Sie daran zu erinnern.

a screenshot showing the countdown complete

Tipp: Sie können den Countdown nicht stoppen, während er läuft, außer Sie schließen die Arbeitsmappe.


Beste Büroproduktivitätswerkzeuge

🤖 Kutools AI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Benutzerdefinierte Formeln erstellen  |  Daten analysieren und Diagramme generieren  |  Erweiterte Funktionen aufrufen
Beliebte Funktionen: Finden, Hervorheben oder Doppelte markieren   |  Leere Zeilen löschen   |  Spalten oder Zellen kombinieren ohne Datenverlust   |   Runden ...
Erweiterte SVERWEIS: Mehrfachkriterien SVERWEIS    Mehrfachwert SVERWEIS  |   Mehrblatt-SVERWEIS   |   Fuzzy Match ....
Erweiterte Dropdown-Liste: Schnell Dropdown-Liste erstellen   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Eine bestimmte Anzahl von Spalten hinzufügen  |  Spalten verschieben  |  Sichtbarkeitsstatus ausgeblendeter Spalten umschalten  |  Bereiche & Spalten vergleichen ...
Hervorgehobene Funktionen: Gitterfokus   |  Entwurfsansicht   |   Erweiterte Formelleiste    Arbeitsmappe & Arbeitsblatt-Manager   |  AutoText-Bibliothek (Auto Text)   |  Datumsauswahl   |  Daten zusammenführen   |  Zellen verschlüsseln/entschlüsseln    E-Mail senden nach Liste   |  Spezialfilter   |   Spezialfilter (Filtern fett/kursiv/durchgestrichen...) ...
Top15 Werkzeugsets12 Textwerkzeuge (Text hinzufügen, Bestimmte Zeichen löschen, ...)   |   50+ Diagramm typen (Gantt-Diagramm, ...)   |   40+ Praktische Formeln (Alter basierend auf dem Geburtsdatum berechnen, ...)   |   19 Einfügewerkzeuge (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Konvertierungswerkzeuge (In Wörter umwandeln, Währungsumrechnung, ...)   |   7 Konsolidieren & Aufteilen Werkzeuge (Erweiterte Zeilen zusammenführen, Zellen aufteilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen zur Steigerung der Produktivität und Zeitersparnis.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...


Office Tab bringt eine Registerkartenoberfläche zu Office und macht Ihre Arbeit viel einfacher

  • Aktivieren Sie die Bearbeitung und das Lesen mit Registerkarten in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters, anstatt in neuen Fenstern.
  • Steigert Ihre Produktivität um50 % und reduziert täglich hunderte von Mausklicks für Sie!