Wie kann man Datum und Uhrzeit automatisch erfassen, sobald sich eine Zelle ändert?
Bei der täglichen Arbeit mit Excel ist es kinderleicht, statische Datums- und Uhrzeitwerte manuell einzufügen oder Formeln zu nutzen, um ein dynamisches Datum anzuzeigen, das sich automatisch gemäß der Systemuhr aktualisiert. Möchten Sie jedoch das exakte Datum und die genaue Uhrzeit automatisch erfassen, sobald sich eine Zelle ändert oder ein neuer Wert eingegeben wird – also im Grunde einen Zeitstempel für Bearbeitungen erstellen –, benötigen Sie einen anderen Ansatz. Automatische Zeitstempel erweisen sich als besonders wertvoll, etwa beim Nachverfolgen von Änderungen in Datenprotokollen, bei der Überwachung von Aktualisierungen in Bestellverfolgungsblättern oder beim Erfassen von Eingaben in gemeinsam genutzten Tabellen für Prüfzwecke. Obwohl Excel keine direkte integrierte Funktion bietet, um Bearbeitungszeitstempel bei Wertänderungen zu protokollieren, stehen Ihnen mehrere praktikable Workarounds zur Verfügung. In diesem Artikel stellen wir Ihnen eine Reihe effektiver Lösungen vor – von VBA-Programmierung bis hin zu cleveren Formeltechniken –, mit denen Sie bei jeder Änderung eines Zellwerts automatisch einen präzisen Zeitstempel generieren können.
Datum und Uhrzeit automatisch aufzeichnen, sobald sich eine Zelle ändert – mit VBA-Code
Datum und Uhrzeit automatisch aufzeichnen, sobald sich eine Zelle ändert – mit VBA-Code
Angenommen, Sie haben eine Tabelle mit Werten, deren Änderungen sofort nachvollziehbar sein sollen. Beispielsweise soll das aktuelle Datum und die Uhrzeit automatisch in Spalte C eingetragen werden, sobald ein Wert in Spalte B geändert oder ein neuer Eintrag hinzugefügt wird. Diese Funktion ist besonders nützlich für Anwesenheitslisten, Inventurprotokolle oder alle Arbeitsabläufe, bei denen das Zeitstempeln von Bearbeitungen für Historie, Nachvollziehbarkeit oder Compliance entscheidend ist.
Um diese Art der Protokollierung zu automatisieren, können Sie ein einfaches VBA-Makro verwenden, das speziell auf Ihr Arbeitsblatt zugeschnitten ist. Im Gegensatz zur manuellen Eingabe von Zeitstempeln erfasst diese VBA-basierte Methode jede Änderung automatisch – so sparen Sie Zeit und minimieren Fehler durch versehentliches Auslassen. Beachten Sie jedoch, dass VBA-Lösungen voraussetzen, dass Benutzer Makros aktivieren und die Datei im makrofähigen Format speichern ().xlsm). Zudem wird VBA-Code nur in Umgebungen ausgeführt, in denen Makros zulässig sind.
Führen Sie die folgenden Schritte aus, um die automatische Zeitstempelfunktion mithilfe von VBA-Code zu implementieren:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Wählen Sie im VBA-Fenster Ihr Zielarbeitsblatt im linken Projektmappen-Explorer aus. Doppelklicken Sie auf das Blatt, um das Codefenster für dieses Arbeitsblatt zu öffnen. Fügen Sie anschließend den folgenden VBA-Code in den leeren Modulbereich ein:
VBA-Code: Datum und Uhrzeit automatisch aufzeichnen, sobald sich eine Zelle ändert
Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20250722
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("B:B"), Target)
xOffsetColumn = 1
If Not WorkRng Is Nothing Then
Application.EnableEvents = False
For Each Rng In WorkRng
If Not VBA.IsEmpty(Rng.Value) Then
Rng.Offset(0, xOffsetColumn).Value = Now
Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm:ss"
Else
Rng.Offset(0, xOffsetColumn).ClearContents
End If
Next
Application.EnableEvents = True
End If
End Sub
3. Nachdem Sie den Code eingegeben haben, speichern Sie Ihre Änderungen und schließen den VBA-Editor. Kehren Sie zum Excel-Arbeitsblatt zurück. Ab sofort wird bei jeder Änderung oder Neueingabe eines Werts in einer Zelle der Spalte B die benachbarte Zelle in Spalte C automatisch mit dem aktuellen Datum und der aktuellen Uhrzeit aktualisiert.
Hinweise und Tipps:
- Spalte anpassen: Sie können die Spalte, in der Änderungen überwacht werden, anpassen, indem Sie die Zeile Set WorkRng = Intersect(Application.ActiveSheet.Range(„B:B"), Target) im Skript bearbeiten. Ändern Sie beispielsweise „B:B“ bei Bedarf in eine andere Spalte.
- Spaltenversatz erläutert: Die Zeile xOffsetColumn = 1 legt fest, in welcher Spalte der Datum-/Uhrzeitwert eingetragen wird. Indem Sie diesen Wert ändern, wird der Zeitstempel weiter rechts neben der Spalte mit dem geänderten Wert eingefügt (z. B. 2 für zwei Spalten entfernt, 3 für drei Spalten usw.).
- Verhalten beim Löschen: Wenn ein Wert in der überwachten Spalte gelöscht wird, wird der zugehörige Zeitstempel in der benachbarten Zelle automatisch ebenfalls entfernt.
- Fehlervermeidung:Speichern Sie Ihre Arbeitsmappe unbedingt im makrofähigen Format ()
.xlsm), und aktivieren Sie beim Öffnen der Arbeitsmappe die Makros, damit der automatische Zeitstempel korrekt funktioniert. - Kompatibilitätshinweis: VBA-Lösungen funktionieren möglicherweise nicht wie erwartet, wenn Makros deaktiviert sind oder auf bestimmten cloudbasierten Excel-Plattformen (wie Excel für das Web) verwendet werden.
Diese Methode ist für die meisten Desktop-Excel-Benutzer sehr zuverlässig und eignet sich gut für mittelgroße Datensätze, bei denen Prüfpfade wichtig sind. Falls Sie Zeitstempel auf formelbasiertere oder zugänglichere Weise benötigen (ohne Makros), sollten Sie die nachfolgend beschriebenen Ansätze in Betracht ziehen.
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