Wie fügt man einen aktuellen Zeitstempel ein, sobald sich Daten in einer anderen Zelle in Excel ändern?
Angenommen, Sie erhalten ein Arbeitsblatt, in dem Sie Daten in einer bestimmten Spalte bearbeiten müssen. Sobald Sie Änderungen vornehmen, soll automatisch ein Zeitstempel eingefügt werden, damit andere Nutzer:innen sofort erkennen können, welche Zellen aktualisiert wurden. Wie lässt sich das umsetzen? Dieser Artikel zeigt Ihnen eine Methode, mit der in Excel beim Ändern einer Zelle automatisch ein aktueller Zeitstempel eingefügt wird – wie im folgenden Screenshot veranschaulicht.
Aktuellen Zeitstempel einfügen, wenn sich Daten in einer anderen Zelle mithilfe von VBA-Code ändern
Aktuellen Zeitstempel einfügen, wenn sich Daten in einer anderen Zelle mithilfe von VBA-Code ändern
Wie im folgenden Screenshot gezeigt, tragen Sie in Spalte E automatisch einen Zeitstempel ein, sobald sich die entsprechenden Zellen in Spalte C ändern – und so geht’s:
1. Klicken Sie auf dem Arbeitsblatt, das Sie bearbeiten und mit einem Zeitstempel kennzeichnen möchten, mit der rechten Maustaste auf die Blattregisterkarte und wählen Sie anschließend Code anzeigen aus dem Kontextmenü.
2. Kopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in das Code-Fenster des Microsoft Visual Basic für Applikationen-Fensters ein. Siehe Screenshot:
VBA-Code: Aktuellen Zeitstempel einfügen, 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 SubHinweis: In diesem Code steht die Zahl 3 dafür, dass Sie Daten in Spalte C bearbeiten, und die 5 gibt an, dass der Zeitstempel in Spalte E eingefügt wird. Passen Sie diese Werte ganz einfach an Ihre Anforderungen an.
3. Drücken Sie die Tastenkombination Alt+Q, um das Fenster Microsoft Visual Basic für Applikationen zu schließen.
Ab sofort wird bei jeder Änderung von Daten in Spalte C automatisch ein Zeitstempel in die zugehörige Zelle in Spalte E eingetragen – wie im folgenden Screenshot gezeigt.
Tipp.Datumsauswahl: Das Datum einfügen-Werkzeug von Kutools für Excel hilft Ihnen, schnell ein Datum im gewünschten Format in eine ausgewählte Zelle einzufügen.
Jetzt herunterladen und testen! (30-tägige kostenlose Testversion)
Verwandte Artikel:
- Wie fügt man einen Zeitstempel des letzten Speichervorgangs in ein Excel-Arbeitsblatt ein oder zeigt ihn an?
- Wie fügt man beim Ausführen eines Makros in Excel einen Zeitstempel in eine bestimmte Zelle ein?
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 zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins