Dieser Artikel veranschaulicht, wie man in Excel einen Zeitstempel anbringt, wenn sich eine Zelle ändert. Möglicherweise müssen Sie die Dateneingaben in den Zellen einer bestimmten Spalte verfolgen. Sie haben beispielsweise Spalte B für die Eingabe von Daten reserviert. Nun möchten Sie den Zeitstempel in einer angrenzenden Zelle in Spalte C, wenn eine Zelle in Spalte B aktualisiert wird. Dieser Artikel hilft Ihnen dabei auf 2 effektive Arten.

Download Arbeitsbuch Praxis

Sie können das Arbeitsbuch für die Praxis über die unten stehende Schaltfläche herunterladen.

2 Möglichkeiten zum Einfügen von Zeitstempeln in Excel bei Zelländerungen

1. verwenden Sie WENN, UND, JETZT und andere Funktionen, um Zeitstempel in Excel einzufügen

Führen Sie die folgenden Schritte aus, um mithilfe von Formeln einen Zeitstempel zu erhalten, wenn sich eine Zelle ändert.

📌 Schritte

• Erste Presse ALT+F+T zu öffnen Excel-Optionen Dann gehen Sie zum Formeln Überprüfen Sie als nächstes die Registerkarte Aktivieren Sie die iterative Berechnung Setzen Sie dann das Kontrollkästchen Maximale Iterationen auf 1. Klicken Sie anschließend auf OK.

• Geben Sie nun die folgende Formel in die Zelle C5 Ziehen Sie dann die Füllen Griff Symbol, um die Formel in die darunter liegenden Zellen zu kopieren.

• Geben Sie dann die folgende Formel in die Zelle D5 Ziehen Sie dann die Füllen Griff Symbol in die Zellen darunter ein.

• Beginnen Sie nun mit der Eingabe von Werten in die Zellen in Spalte B Danach erhalten Sie das folgende Ergebnis: Hier, Spalte D ist eine Hilfsspalte, die Sie ausblenden können, indem Sie nach der Auswahl der Spalte mit der rechten Maustaste klicken.

• Alternativ können Sie auch einfach die folgende Formel in die Zelle eingeben C5 um das gleiche Ergebnis zu erzielen.

• Möglicherweise müssen Sie die Formatierung der Zellen in Spalte C Wählen Sie die Spalte aus, indem Sie oben auf die Spaltennummer klicken. Drücken Sie dann STRG+1 zum Öffnen des Zellen formatieren Klicken Sie nun auf die Schaltfläche Benutzerdefiniert Geben Sie dann d-mmm-yyyy hh:mm:ss AM/PM im Typ Klicken Sie abschließend auf OK.

Formel Aufschlüsselung:

Formel in Zelle C5:

➤ IF(B5="","",C5))

Die IF-Funktion gibt nichts zurück, wenn Zelle B5 ist leer, andernfalls wird derselbe Wert zurückgegeben, der in C5 .

➤ JETZT()

Die JETZT-Funktion gibt das aktuelle Datum und die Uhrzeit zurück.

➤ UND(B5"",D5B5)

Die UND-Funktion gibt zurück. WAHR wenn beide Argumente wahr sind, d.h. Zelle B5 nicht leer ist und Zellen B5 und D5 haben nicht den gleichen Wert.

➤ IF(AND(B5"",D5B5),NOW(),IF(B5="","",C5))

Wenn die UND-Funktion gibt zurück. WAHR dann ist die IF-Funktion gibt das aktuelle Datum und die Uhrzeit zurück, die aus der Datei JETZT-Funktion Andernfalls wird das Ergebnis zurückgegeben, das sich aus dem Argument ergibt, das die IF-Funktion .

Formel in Zelle D5:

➤ ISNUMBER(D5)

Die ISNUMBER-Funktion gibt zurück. WAHR wenn Zelle D5 eine Zahl enthält, andernfalls gibt sie Falsch .

➤ AND(ISNUMBER(D5),B5=D5)

Die UND-Funktion gibt zurück. WAHR wenn Zelle D5 enthält eine Zahl und Zellen B5 und D5 denselben Wert haben, und gibt FALSCH sonst.

➤ OR(C5="",AND(ISNUMBER(D5),B5=D5))

Die ODER-Funktion gibt zurück. WAHR wenn eines der Argumente wahr ist, d.h. Zelle C5 leer ist oder die UND-Funktion gibt zurück. WAHR . er gibt zurück FALSCH wenn alle Argumente falsch sind.

➤ IF(OR(C5="",AND(ISNUMBER(D5),B5=D5)),D5,B5)

Die IF-Funktion gibt den gleichen Wert zurück, der in der Zelle D5 wenn die ODER-Funktion gibt zurück. WAHR Andernfalls gibt es den Wert der Zelle B5 .

➤ IF(B5="","",IF(OR(C5="",AND(ISNUMBER(D5),B5=D5)),D5,B5))

Die IF-Funktion gibt nichts zurück, wenn Zelle B5 Andernfalls wird das Ergebnis zurückgegeben, das sich aus dem Argument ergibt, das den Wert IF-Funktion .

Lesen Sie mehr: Excel-Zeitstempel bei Zelländerungen ohne VBA einfügen (3 Wege)

Ähnliche Lektüre

• Wie man ein statisches Datum in Excel einfügt (4 einfache Methoden)
• Excel VBA: Zeitstempel einfügen, wenn ein Makro ausgeführt wird
• Excel-Datumsstempel einfügen, wenn Zellen in einer Zeile geändert werden
• Unix-Zeitstempel in Excel in ein Datum umwandeln (3 Methoden)

2 VBA-Code zum Einfügen von Zeitstempeln in Excel bei Zelländerungen anwenden

Sie können auch einen Zeitstempel in Excel erhalten, wenn sich eine Zelle mit Hilfe von VBA ändert. Befolgen Sie dazu die folgenden Schritte.

📌 Schritte

• Klicken Sie zunächst mit der rechten Maustaste auf die Registerkarte des Zielarbeitsblatts und wählen Sie dann Code anzeigen Dadurch wird das Codemodul für das betreffende Arbeitsblatt geöffnet.

• Kopieren Sie dann den folgenden Code mit Hilfe der Schaltfläche Kopieren in der oberen rechten Ecke.

 Private Sub Worksheet_Change(ByVal Target As Range) Dim CellCol, TimeCol, Row, Col As Integer Dim DpRng, Rng As Range CellCol = 2 TimeCol = 3 Row = Target.Row Col = Target.Column If Row <= 4 Then Exit Sub Timestamp = Format(Now, "DD-MM-YYYY HH:MM:SS AM/PM") If Target.Text "" Then If Col = CellCol Then Cells(Row, TimeCol) = Timestamp Else On Error Resume Next Set DpRng = Target.Dependents ForEach Rng In DpRng If Rng.Column = CellCol Then Cells(Rng.Row, TimeCol) = Timestamp End If Next End If End If End Sub 

• Fügen Sie anschließend den kopierten Code in das leere Modul ein, wie unten gezeigt.

• Speichern Sie dann das Dokument als makrofähige Arbeitsmappe Beginnen Sie nun mit der Eingabe von Daten in die Zellen der Spalte B. Sie erhalten dann die gleichen Ergebnisse wie zuvor.

VBA-Code Erläuterung:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim CellCol, TimeCol, Row, Col As Integer

Dim DpRng, Rng As Range

Deklaration der notwendigen Variablen.

CellCol = 2

Spalte Dateneingabe.

TimeCol = 3

Spalte Zeitstempel.

Zeile = Ziel.Zeile

Col = Target.Column

Speichern der Zeilen- und Spaltennummern der ausgewählten Zelle.

If Row <= 4 Then Exit Sub

Bei Änderungen innerhalb der ersten 4 Zeilen wird kein Zeitstempel erstellt.

Zeitstempel = Format(Jetzt, "TT-MM-JJJJ HH:MM:SS AM/PM")

Der Zeitstempel wird auf diese Weise formatiert und kann nach Bedarf geändert werden.

Wenn Ziel.Text "" Dann

If Col = CellCol Then

Cells(Row, TimeCol) = Zeitstempel

Erstellt einen Zeitstempel, wenn die ausgewählte Zelle leer ist.

Bei Fehler Fortsetzen Weiter

Ignoriert jeden Fehler, falls er auftritt.

Set DpRng = Target.Dependents

For Each Rng In DpRng

If Rng.Column = CellCol Then

Cells(Rng.Row, TimeCol) = Zeitstempel

Erstellen Sie Zeitstempel für einen Bereich von Zellen, wenn dieser nicht leer ist.

Lesen Sie mehr: Wie man automatisch Zeitstempel in Excel einfügt (5 Methoden)

Dinge zum Merken

• Sie müssen ein benutzerdefiniertes Format für die Zellen in Spalte B verwenden, um einen korrekt formatierten Zeitstempel zu erhalten.
• Die alternative Formel funktioniert nur, wenn Daten in leere Zellen eingegeben werden.
• Hier sind die Dateneingabe und die Zeitstempelspalte im VBA-Code fest kodiert. Sie müssen den Code auf der Grundlage Ihres Datensatzes ändern.

Schlussfolgerung

Jetzt wissen Sie, wie man in Excel einen Zeitstempel anbringt, wenn sich eine Zelle ändert. Haben Sie noch weitere Fragen oder Anregungen? Dann nutzen Sie bitte den Kommentarbereich unten. Sie können auch unsere ExcelWIKI Blog, um mehr über Excel zu erfahren. Bleiben Sie bei uns und lernen Sie weiter.