Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie können Sie in einer Zelle in Excel wechselnde Werte aufzeichnen?

Wie wird jeder sich ändernde Wert für eine sich häufig ändernde Zelle in Excel aufgezeichnet? Der ursprüngliche Wert in der Zelle C2 ist beispielsweise 100. Wenn Sie die Nummer 100 in 200 ändern, wird der ursprüngliche Wert 100 automatisch in der Zelle D2 für die Aufzeichnung angezeigt. Gehen Sie voran, um 200 zu 300 zu ändern, Nummer 200 wird in die Zelle D3 eingefügt, 300 zu 400 ändern wird 300 zu D4 angezeigt und so weiter. Die Methode in diesem Artikel kann Ihnen dabei helfen.

Ändern Sie Werte in einer Zelle mit VBA-Code

Ermöglichen Sie es Ihnen, intelligenter, schneller und besser zu arbeiten

Kutools - das beste Office-Produktivitäts-Tool bringt erweiterte 300-Funktionen nach Excel. Details ... Download ...

Office Tab - Bringt eine Oberfläche mit Registerkarten in Excel und Word, um Ihre Arbeit zu vereinfachen. Details ...Download ...


Ändern Sie Werte in einer Zelle mit VBA-Code


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

1. In dem Arbeitsblatt enthält die Zelle, die Sie ändernde Werte aufzeichnen möchten, klicken Sie mit der rechten Maustaste auf das Blattregister, und klicken Sie dann auf OK Code anzeigen aus dem Kontextmenü. Siehe Screenshot:

2. Dann ist die Microsoft Visual Basic für Applikationen Das Fenster öffnet sich, bitte kopieren Sie den VBA-Code in das Code-Fenster.

VBA-Code: Aufzeichnen von sich ändernden Werten 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:

1. Im Code ist C2 die Zelle, in der alle sich ändernden Werte aufgezeichnet werden sollen. D2 ist die Zelle, in der Sie den ersten Wert von C2 ändern.

3. Drücken Sie die Taste Andere + Q Tasten zum Schließen der Microsoft Visual Basic für Applikationen Fenster.

Jedes Mal, wenn Sie Werte in der Zelle C2 ändern, werden die vorherigen Werte in D2 und die Zellen unterhalb von D2 gespeichert.



Excel-Produktivitätstools

Kutools for Excel - Das beste Tool für die Office-Produktivität

  • Bringt 300 mit leistungsstarken, erweiterten Funktionen nach Excel, damit Sie intelligenter, schneller und besser arbeiten können.
  • Sie müssen keine Formeln und VBA-Codes mehr auswendig lernen. Geben Sie Ihrem Gehirn eine Pause.
  • Werden Sie ein Excel-Experte in 3 Minuten. Komplizierte und wiederholte Operationen können in Sekunden durchgeführt werden.
  • Reduzieren Sie jeden Tag Tausende von Tastatur- und Mausoperationen und verabschieden Sie sich jetzt von Berufskrankheiten.
  • 110,000 hochwirksame Mitarbeiter und 300 + weltweit renommierte Unternehmen.
  • Kostenlose Testversion für 60-Tage mit allen Funktionen. Geld-zurück-Garantie für 60-Tage. 2 Jahre kostenloses Upgrade und Support.

Office-Registerkarte - Bringt eine mit Registerkarten versehene Benutzeroberfläche in Office, um Ihre Arbeit zu vereinfachen.

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel, 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 täglich Hunderte von Mausklicks für Sie!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    krishna · 1 months ago
    I tried this code for the C2 cell which contatins DDE values which changes second by second. I use this following code but not working.

    Dim xVal As String
    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
  • To post as a guest, your comment is unpublished.
    Marky Mark · 3 months ago
    Try This

    Dim xVal As String
    Dim iVal As Integer
    Private Sub Worksheet_Change(ByVal Target As Range)
    Static xCount As Integer
    iVal = Application.WorksheetFunction.Count(Range("F:F"), 1)
    xCount = iVal
    Application.EnableEvents = False
    If Target.Address = Range("C2").Address Then
    Range("E3").Offset(xCount, 0).Value = Range("C2").Value
    Range("F3").Offset(xCount, 0).Value = Now
    xCount = xCount + 1
    Else
    If xVal <> Range("C2").Value Then
    Range("E3").Offset(xCount, 0).Value = Range("C2").Value
    Range("F3").Offset(xCount, 0).Value = Now
    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
  • To post as a guest, your comment is unpublished.
    Jackie · 3 months ago
    Hi! Thanks for the code, but I have a question

    Is there a way to modify the code, such that it records the value if the cell daily, or on certain days, which I specify in a separate column?


    Thanks!
  • To post as a guest, your comment is unpublished.
    Anthony · 4 months ago
    Hello, Would it be possible to apply this for more than one cell ?
  • To post as a guest, your comment is unpublished.
    John · 5 months ago
    How do I save the number as soon as it is generated not after a new number is generated? The problem I am having is the number is not recorded right away but after a second number is created; this means neither the cell that I am recording or the cell that is the target have the number...how can I record as soon as the number is generated? Thanks for your help!