Datum einfügen und Zeitstempel schnell und automatisch in Excel einfügen

In Excel ist das Einfügen von Datum und Zeitstempel ein gängiger Vorgang. In diesem Tutorial stelle ich mehrere Methoden vor, um Datum und Zeitstempel manuell oder automatisch in Excel-Zellen einzufügen – jeweils passend zu unterschiedlichen Anwendungsfällen.

Datum einfügen und Zeitstempel mit Tastenkombinationen

Datum einfügen und Zeitstempel mit Formel

Formel zum automatischen Einfügen eines Zeitstempels beim Eingeben von Daten in eine andere Spalte

VBA zum automatischen Einfügen eines Zeitstempels beim Eingeben von Daten in eine andere Spalte

---

Wenn Sie Datum und Zeitstempel nur in wenigen Zellen benötigen, fügen Sie diese einfach manuell per Tastenkombination ein.

Aktuelles Datum einfügen:Strg+:

Aktuelle Uhrzeit einfügen:Umschalt+Strg+:

Siehe Screenshot:

Tipps:

1. Sie können die Ausgaben im gewünschten Datums- oder Uhrzeitformat im Zellenformat festlegen-Dialogfeld formatieren.

2. Wenn Sie Kutools für Excel installiert haben, können Sie das aktuelle Datum oder andere Datumsangaben im gewünschten Format „Bestimmtes Datum“ mithilfe der Datum einfügen-Funktion einfügen. Zum kostenlosen Herunterladen klicken

---

Wenn Sie ein Datum oder einen Zeitstempel einfügen möchten, der sich automatisch aktualisiert, verwenden Sie einfach die folgenden Formeln.

Aktuelles Datum einfügen

=HEUTE()

Drücken Sie die Eingabetaste, und das aktuelle Datum wird in die Zelle eingefügt.

Aktuelle Uhrzeit einfügen：

=JETZT()

Drücken Sie die Eingabetaste, und das aktuelle Datum sowie die Uhrzeit werden in die Zelle eingefügt.

Tipps:

1. Sie können die Ausgaben im gewünschten Datums- oder Uhrzeitformat über das Dialogfeld Zellenformat festlegen formatieren. Möchten Sie beispielsweise nur die aktuelle Uhrzeit anzeigen, formatieren Sie die Zelle nach Verwendung der Formel =JETZT() als Uhrzeit.

2. Wenn Sie das aktuelle Datum und die Uhrzeit in den Kopf- oder Fußbereich eines Arbeitsblatts einfügen möchten, nutzen Sie einfach die Arbeitsmappeninformationen einfügen-Funktion von Kutools für Excel, um diese Aufgabe im Handumdrehen zu erledigen. Zum kostenlosen Herunterladen klicken

---

Angenommen, es gibt zwei Spalten: Spalte A und Spalte B. Wie können Sie beim Eingeben von Daten in Spalte A automatisch den aktuellen Zeitstempel in Spalte B einfügen lassen?

Automatisches Einfügen eines Zeitstempels beim Eingeben von Daten

1. Klicken Sie zunächst auf Datei > Optionen, um das Dialogfeld Excel-Optionen zu öffnen. Wählen Sie im linken Bereich Formeln aus und aktivieren Sie dann unter Berechnungsoptionen die Option Iterative Berechnung aktivieren. Klicken Sie anschließend auf OK.

2. Geben Sie in Spalte B – beispielsweise in Zelle B1 – folgende Formel ein:

=IF(A1<>"",IF(B1<>„",B1,NOW()),„")

Ziehen Sie anschließend den AutoAusfüll-Griff auf die gewünschten Zellen nach unten.

3. Formatieren Sie danach die Formelzellen im gewünschten Datums-/Uhrzeitformat im Zellenformat festlegen-Dialogfeld: Lassen Sie die Formelzellen markiert, klicken Sie mit der rechten Maustaste, um das Kontextmenü zu öffnen, und wählen Sie Zellenformat festlegen. Daraufhin öffnet sich das Dialogfeld Zellenformat festlegen. Wechseln Sie zum Register Zahl, wählen Sie im Abschnitt Benutzerdefiniertden Eintrag Typaus und klicken Sie abschließend auf OK.

Sobald Sie Daten in Spalte A eingeben, wird automatisch das aktuelle Datum mit Uhrzeit in Spalte B eingefügt.

Automatisches Einfügen und Aktualisieren eines Zeitstempels bei Änderungen in einer anderen Spalte

Wenn Sie beim Eingeben von Daten automatisch einen Zeitstempel einfügen möchten und dieser bei jeder Änderung der Eingabe aktualisiert werden soll, können Sie die folgende Formel verwenden:

=IF(A1<>„",IF(AND(B1<>"",CELL(„address")=ADDRESS(ROW(A1),COLUMN(A1))),NOW(),IF(CELL(„address")<>ADDRESS(ROW(A1),COLUMN(A1)),B1,NOW())),„")

A1 ist die Zelle, in die Sie Ihre Daten eingeben; B1 enthält die Formel, in die der Zeitstempel eingefügt wird.

Ziehen Sie den AutoAusfüll-Griff auf alle gewünschten Zellen.

Formatieren Sie anschließend die Formelzellen im gewünschten Datums-/Uhrzeitformat über das Dialogfeld Zellenformat festlegen: Lassen Sie die markierten Formelzellen ausgewählt, klicken Sie mit der rechten Maustaste, um das Kontextmenü zu öffnen, und wählen Sie Zellenformat festlegen. Daraufhin öffnet sich das Dialogfeld Zellenformat festlegen. Wechseln Sie zum Register Zahl, wählen Sie im Abschnitt Benutzerdefiniert den Eintrag Typ aus, und klicken Sie abschließend auf OK.

---

Wenn Sie mit VBA-Code vertraut sind, gehen Sie wie folgt vor:

1. Klicken Sie mit der rechten Maustaste auf die verwendete Arbeitsblattregisterkarte und wählen Sie im Kontextmenü Code anzeigen.

2. Fügen Sie im Fenster Microsoft Visual Basic für Applikationen den folgenden Code ein.

VBA: Automatisches Einfügen eines Zeitstempels

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyKutools20190919
Dim xRInt As Integer
Dim xDStr As String
Dim xFStr As String
On Error Resume Next
xDStr = "A" 'Data Column
xFStr = "B" 'Timstamp Column
If (Not Application.Intersect(Me.Range(xDStr & ":" & xDStr), Target) Is Nothing) Then
       xRInt = Target.Row
       Me.Range(xFStr & xRInt) = Format(Now(), "mm/dd/yyyy hh:mm:ss")
End If
End Sub

3. Speichern Sie diesen Code anschließend. Ab sofort wird bei jeder Eingabe oder Änderung von Daten in Spalte A automatisch ein neuer Zeitstempel in Spalte B eingefügt.

Hinweis: Sie können Spalte A und B sowie das Datumsformat „mm/tt/jjjj hh:mm:ss“ im VBA-Code ganz einfach an Ihre Anforderungen anpassen.

Wenn Sie eine benutzerdefinierte Funktion verwenden möchten, gehen Sie wie folgt vor:

1. Drücken Sie gleichzeitig Alt + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen. Klicken Sie dann auf Einfügen > Modul, um ein leeres Modul einzufügen.

2. Fügen Sie den folgenden Code in das neue Modul ein, speichern Sie ihn anschließend und kehren Sie zum Arbeitsblatt zurück.

Function FormatDate(xRg As Range)
'UpdatebyKutools20190919
On Error GoTo Err_01
If xRg.Value <> "" Then
    FormatDate = Format(Now, "mm/dd/yyyy hh:mm:ss")
Else
    FormatDate = ""
End If
Exit Function
Err_01:
    FormatDate = "Error"
End Function

3. Geben Sie in die Zelle, in der der Zeitstempel eingefügt werden soll, folgende Formel ein:

=FormatDate(F1)

F1 ist die Zelle, in die Sie Ihre Daten eingeben oder bearbeiten. Ziehen Sie anschließend den AutoAusfüll-Griff einfach nach unten auf die gewünschten Zellen.

Das aktuelle Datum und die aktuelle Uhrzeit werden nun eingefügt, sobald Daten in Zelle F1 eingegeben oder aktualisiert werden.

---