Wie gebe ich automatisch das Datum ein, an dem Daten in eine Spalte eingegeben werden?

Wenn Sie an einem Arbeitsblatt arbeiten, möchten Sie, dass das aktuelle Datum und die aktuelle Uhrzeit automatisch in eine Spalte B eingegeben werden, wenn Sie Daten in Spalte A eingeben (siehe folgenden Screenshot). Wie können Sie in Excel versuchen, diesen Job mit einer einfachen und schnellen Lösung zu lösen?

Geben Sie automatisch das Datum ein, an dem Daten in eine Spalte mit VBA-Code eingegeben wurden

Geben Sie automatisch das Datum ein, an dem Daten in eine Spalte mit VBA-Code eingegeben wurden

Vielleicht gibt es für uns keine direkte Möglichkeit, diesen Job in Excel zu bearbeiten, aber der folgende VBA-Code kann Ihnen helfen. Gehen Sie wie folgt vor:

1. Wählen Sie die Blattregisterkarte aus, in die Sie das Datum automatisch einfügen möchten, klicken Sie mit der rechten Maustaste darauf und wählen Sie Code anzeigen aus dem textmenü, dann in eh herausgesprungen Microsoft Visual Basic für Applikationen Im Fenster kopieren Sie bitte den folgenden Code und fügen Sie ihn in das Modul ein:

VBA-Code: Geben Sie das Datum automatisch ein, wenn Sie Daten in eine andere Spalte eingeben:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A2:A15")) Is Nothing Then
        With Target(1, 2)
        .Value = Date & " " & Time
        .EntireColumn.AutoFit
        End With
    End If
End Sub

2. Speichern und schließen Sie dann dieses Codefenster und kehren Sie zum Arbeitsblatt zurück. Wenn Sie jetzt Daten in Spalte A eingeben, gibt die entsprechende Zelle in Spalte B automatisch sofort das aktuelle Datum und die aktuelle Uhrzeit ein.

Note: Im obigen Code, A2: A15 sind die Zellen, in die Sie Werte eingeben möchten.