Wie zeichnet man sich ändernde Werte in einer Zelle in Excel auf?
Wie kann jeder sich ändernde Wert für eine sich häufig ändernde Zelle in Excel aufgezeichnet werden? Beispielsweise ist der ursprüngliche Wert in Zelle C2 100, wenn die Nummer 100 in 200 geändert wird, wird der ursprüngliche Wert 100 automatisch in Zelle D2 zur Aufzeichnung angezeigt. Fahren Sie fort, um 200 zu 300 zu ändern, Nummer 200 wird in Zelle D3 eingefügt, Änderung 300 zu 400 zeigt 300 zu D4 an und so weiter. Die Methode in diesem Artikel kann Ihnen dabei helfen.
Zeichnen Sie sich ändernde Werte in einer Zelle mit VBA-Code auf
Zeichnen Sie sich ändernde Werte in einer Zelle mit VBA-Code auf
Mit dem folgenden VBA-Code können Sie jeden sich ändernden Wert in einer Zelle in Excel aufzeichnen. Bitte gehen Sie wie folgt vor.
1. Wenn das Arbeitsblatt die Zelle enthält, in der Sie sich ändernde Werte aufzeichnen möchten, klicken Sie mit der rechten Maustaste auf die Registerkarte Blatt und klicken Sie dann auf Code anzeigen aus dem Kontextmenü. Siehe Screenshot:
2. Dann die Microsoft Visual Basic für Applikationen Das Fenster öffnet sich. Bitte kopieren Sie den folgenden VBA-Code in das Code-Fenster.
VBA-Code: Aufzeichnen sich ändernder Werte in einer Zelle
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 Sub
Notizen: Im Code ist C2 die Zelle, in der Sie alle sich ändernden Werte aufzeichnen möchten. D2 ist die Zelle, in die Sie den ersten sich ändernden Wert von C2 einfügen.
3. Drücken Sie die Taste Andere + Q Tasten zum Schließen der Microsoft Visual Basic für Applikationen Fenster.
Von nun an werden jedes Mal, wenn Sie Werte in Zelle C2 ändern, die vorherigen Änderungswerte in D2 und den Zellen unter D2 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, 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!