Wie füge ich einen aktuellen Zeitstempel ein, wenn sich Daten in einer anderen Zelle in Excel ändern?
Angenommen, Sie erhalten ein Arbeitsblatt, in dem Sie Daten in einer bestimmten Spalte ändern müssen. Nach dem Ändern des Arbeitsblatts müssen Sie den geänderten Zeitstempel einfügen, damit andere wissen, welche Zellen geändert wurden. Wie man damit umgeht? Dieser Artikel zeigt Ihnen, wie Sie den aktuellen Zeitstempel einfügen, wenn sich Daten in einer anderen Zelle in Excel ändern (siehe Abbildung unten).
Fügen Sie den aktuellen Zeitstempel ein, wenn sich Daten in einer anderen Zelle mit VBA-Code ändern
Fügen Sie den aktuellen Zeitstempel ein, wenn sich Daten in einer anderen Zelle mit VBA-Code ändern
Wie im folgenden Screenshot gezeigt, müssen Sie den Zeitstempel in Spalte E einfügen, wenn die entsprechenden Zellen in Spalte C geändert werden. Bitte gehen Sie wie folgt vor.
1. Klicken Sie im Arbeitsblatt, das Sie ändern und mit einem Zeitstempel markieren müssen, mit der rechten Maustaste auf die Registerkarte Blatt und klicken Sie dann auf Code anzeigen aus dem Kontextmenü.
2. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das ein Code Fenster der Microsoft Visual Basic für Applikationen Fenster. Siehe Screenshot:
VBA-Code: Fügen Sie den aktuellen Zeitstempel ein, wenn sich Daten in einer anderen Zelle ändern
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180830
Dim xCellColumn As Integer
Dim xTimeColumn As Integer
Dim xRow, xCol As Integer
Dim xDPRg, xRg As Range
xCellColumn = 3
xTimeColumn = 5
xRow = Target.Row
xCol = Target.Column
If Target.Text <> "" Then
If xCol = xCellColumn Then
Cells(xRow, xTimeColumn) = Now()
Else
On Error Resume Next
Set xDPRg = Target.Dependents
For Each xRg In xDPRg
If xRg.Column = xCellColumn Then
Cells(xRg.Row, xTimeColumn) = Now()
End If
Next
End If
End If
End Sub
Note: Im Code bedeutet Nummer 3, dass Sie die Daten in Spalte C ändern werden, und 5 gibt an, dass der Zeitstempel in Spalte E eingetragen wird. Bitte ändern Sie sie entsprechend Ihren Anforderungen.
3. Drücken Sie die Taste Andere + Q Tasten zum Schließen der Microsoft Visual Basic für Applikationen Fenster.
Wenn Sie Daten in Spalte C ändern, wird der Zeitstempel von nun an in die entsprechenden Zellen in Spalte E eingefügt (siehe Abbildung unten).
Tip. Datumsauswahldem „Vermischten Geschmack“. Seine Datum einfügen Nutzen von Kutools for Excel hilft Ihnen, schnell ein Datum mit dem angegebenen Datumsformat in eine ausgewählte Zelle einzufügen.
Jetzt herunterladen und ausprobieren! (30 Tage kostenloser Trail)
In Verbindung stehende Artikel:
- Wie füge ich den zuletzt gespeicherten Zeitstempel in ein Arbeitsblatt in Excel ein oder zeige ihn an?
- Wie füge ich einen Zeitstempel in eine bestimmte Zelle ein, wenn ein Makro in Excel ausgeführt wird?
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!