Wie kann man sich ändernde Werte in einer Zelle in Excel aufzeichnen?

Wie kann man jeden sich ändernden Wert für eine häufig wechselnde Zelle in Excel aufzeichnen? Zum Beispiel ist der ursprüngliche Wert in Zelle C2 100. Wenn Sie die Zahl 100 in 200 ändern, wird der ursprüngliche Wert, 100, automatisch in Zelle D2 zur Aufzeichnung angezeigt. Wenn Sie 200 in 300 ändern, wird die Zahl 200 in Zelle D3 eingefügt; wenn Sie 300 in 400 ändern, wird 300 in D4 angezeigt und so weiter. Die Methode in diesem Artikel kann Ihnen helfen, dies zu erreichen.

Ändernde Werte in einer Zelle mit VBA-Code aufzeichnen

Ändernde Werte in einer Zelle mit VBA-Code aufzeichnen

Der folgende VBA-Code kann Ihnen helfen, jeden sich ändernden Wert in einer Zelle in Excel aufzuzeichnen. Bitte gehen Sie wie folgt vor.

1. Klicken Sie in dem Arbeitsblatt, das die Zelle enthält, in der Sie sich ändernde Werte aufzeichnen möchten, mit der rechten Maustaste auf die Registerkarte des Blatts und klicken Sie dann im Kontextmenü auf Ansicht Code. Siehe Screenshot:

2. Das Fenster Microsoft Visual Basic for Applications öffnet sich. Kopieren Sie den folgenden VBA-Code bitte in das Codefenster.

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 Sub

Hinweise: Im Code ist C2 die Zelle, in der Sie alle sich ändernden Werte aufzeichnen möchten. D2 ist die Zelle, in der Sie den ersten sich ändernden Wert von C2 einfügen werden.

3. Drücken Sie die Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.

Ab jetzt wird jedes Mal, wenn Sie Werte in Zelle C2 ändern, der vorherige Wert in D2 und den darunterliegenden Zellen aufgezeichnet.