Zum Hauptinhalt springen

Wie kann man Datum und Uhrzeit automatisch aufzeichnen, wenn sich eine Zelle ändert?

Author: Xiaoyang Last Modified: 2025-05-28

Es ist einfach, statische Datums- und Uhrzeiten manuell einzufügen oder eine dynamische Uhrzeit mit einer Formel einzufügen, die sich mit der Systemzeit ändert. Wenn Sie jedoch das Datum und die Uhrzeit automatisch aufzeichnen möchten, sobald Sie Werte ändern oder eingeben, kann dieses Problem etwas schwieriger zu lösen sein. In diesem Artikel können Sie diese Aufgabe jedoch mit den folgenden Schritten bewältigen.

Datum und Uhrzeit automatisch mit VBA-Code aufzeichnen, wenn sich eine Zelle ändert


Datum und Uhrzeit automatisch mit VBA-Code aufzeichnen, wenn sich eine Zelle ändert

Angenommen, ich habe einen Bereich von Werten, und jetzt möchte ich, dass bei jeder Änderung oder Eingabe neuer Werte in Spalte B automatisch das aktuelle Datum und die Uhrzeit in Spalte C aufgezeichnet werden, wie im folgenden Screenshot dargestellt:

screenshot of result

Sie können diese Aufgabe mit dem folgenden VBA-Code abschließen. Gehen Sie dazu wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Wählen Sie dann Ihr verwendetes Arbeitsblatt aus dem linken Projektmappen-Explorer aus, doppelklicken Sie darauf, um das Modul zu öffnen, und kopieren Sie den folgenden VBA-Code in das leere Modul:

VBA-Code: Datum und Uhrzeit automatisch aufzeichnen, wenn sich eine Zelle ändert

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140722
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

screenshot of using VBA code

3. Speichern Sie anschließend den Code und schließen Sie ihn, um zum Arbeitsblatt zurückzukehren. Jetzt wird beim Ändern des Zellenwerts oder Eingeben neuer Daten in Spalte B das Datum und die Uhrzeit automatisch in Spalte C aufgezeichnet.

Hinweise:

1. Im obigen Code können Sie „B:B“ in eine beliebige andere Spalte ändern, in der Sie die Zellwerte in diesem Skript ändern möchten: Set WorkRng = Intersect(Application.ActiveSheet.Range("B:B"), Target).

2. Mit dem Skript xOffsetColumn = 1 können Sie Datum und Uhrzeit in die erste Spalte neben Ihrer geänderten Wertespalte einfügen und aktualisieren. Sie können die Zahl 1 durch andere Zahlen wie 2, 3, 4, 5 usw. ersetzen, was bedeutet, dass das Datum in der zweiten, dritten, vierten oder fünften Spalte neben Ihrer geänderten Wertespalte eingefügt wird.

3. Wenn Sie einen Wert in der geänderten Spalte löschen, wird das Datum und die Uhrzeit ebenfalls entfernt.


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!