Wie kann man sich ändernde Werte in einer Excel-Zelle protokollieren?
Wie können Sie jeden sich ändernden Wert einer häufig bearbeiteten Zelle in Excel automatisch aufzeichnen? Angenommen, der ursprüngliche Wert in Zelle C2 ist 100. Sobald Sie diesen Wert auf 200 ändern, wird der vorherige Wert (100) automatisch in Zelle D2 gespeichert. Ändern Sie danach 200 in 300, erscheint 200 in Zelle D3; eine weitere Änderung von 300 auf 400 führt dazu, dass 300 in D4 eingetragen wird – und so weiter. Mit der Methode in diesem Artikel lässt sich genau das umsetzen.
Ändernde Werte in einer Zelle mithilfe von VBA-Code aufzeichnen
Ändernde Werte in einer Zelle mithilfe von VBA-Code aufzeichnen
Der folgende VBA-Code ermöglicht es Ihnen, jeden Wertwechsel einer Zelle in Excel automatisch zu protokollieren. Gehen Sie dazu wie folgt vor:
1. Klicken Sie auf dem Arbeitsblatt, das die Zelle enthält, deren sich ändernde Werte Sie aufzeichnen möchten, mit der rechten Maustaste auf die Blattregisterkarte und wählen Sie im Kontextmenü Code anzeigen. Siehe Screenshot:
2. Anschließend öffnet sich das Fenster Microsoft Visual Basic for Applications – kopieren Sie den folgenden VBA-Code in das Code-Fenster.
VBA-Code: Ändernde Werte in einer Zelle aufzeichnen
Dim xVal As String
'Update by Extendoffice 2018/8/22
Private Sub Worksheet_Change(ByVal Target As Range)
Static xCount As Integer
Application.EnableEvents = False
If Target.Address = Range("C2").Address Then
Range("D2").Offset(xCount, 0).Value = xVal
xCount = xCount + 1
Else
If xVal <> Range("C2").Value Then
Range("D2").Offset(xCount, 0).Value = xVal
xCount = xCount + 1
End If
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
xVal = Range("C2").Value
End SubHinweis: Im Code steht C2 für die Zelle, deren sich ändernde Werte Sie aufzeichnen möchten. D2 ist die Zelle, in der der erste geänderte Wert aus C2 eingetragen wird.
3. Drücken Sie die Tastenkombination Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.
Ab sofort wird bei jeder Änderung des Werts in Zelle C2 der vorherige Wert in Zelle D2 und in den darunterliegenden Zellen aufgezeichnet.
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