Wie zählt man die Anzahl der Änderungen einer Zelle in Excel?

Um die Anzahl der Änderungen einer bestimmten Zelle in Excel zu zählen, können die in diesem Artikel bereitgestellten VBA-Codes helfen.

Zählen Sie die Anzahl der Änderungen einer Zelle mit VBA-Code

Zählen Sie die Anzahl der Änderungen einer Zelle mit VBA-Code

Die folgenden VBA-Codes können Ihnen helfen, die Anzahl der Änderungen einer bestimmten Zelle in Excel zu zählen.

1. Klicken Sie im Arbeitsblatt, das eine oder mehrere Zellen enthält, für die Sie die Gesamtänderung berechnen müssen, mit der rechten Maustaste auf die Registerkarte des Blatts und dann auf Ansicht Code im Kontextmenü. Siehe Screenshot:

2. Kopieren Sie im sich öffnenden Fenster Microsoft Visual Basic for Applications eines der folgenden VBA-Codes entsprechend Ihren Bedürfnissen in das Code-Fenster.

VBA-Code 1: Änderungen an einer einzigen Zelle nachverfolgen

Dim xCount As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    If Target = Range("B9") Then
        xCount = xCount + 1
        Range("C9").Value = xCount                                     
    End If
    Application.EnableEvents = False
    Set xRg = Application.Intersect(Target.Dependents, Me.Range("B9"))
    If Not xRg Is Nothing Then
        xCount = xCount + 1
        Range("C9").Value = xCount
    End If
    Application.EnableEvents = True
End Sub

Hinweis: Im Code ist B9 die Zelle, deren Änderungen Sie zählen möchten, und C9 ist die Zelle, in der das Zählergebnis angezeigt wird. Bitte ändern Sie diese je nach Bedarf.

VBA-Code 2: Änderungen an mehreren Zellen in einer Spalte nachverfolgen

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220916
    Dim xSRg As Range
    Dim xRRg As Range
    
    Set xSRg = Range("B9:B1000")
    Set xCell = Intersect(xSRg, Target)
    If xCell Is Nothing Then Exit Sub
    
    
    Application.EnableEvents = False
    On Error Resume Next
    Set xCell = xCell.Range("A1")
    Set xRRg = xCell.Offset(0, 1)
    
    xRRg.Value = xRRg.Value + 1

    Application.EnableEvents = True
End Sub

Hinweis: In dieser Zeile "Set xRRg = xCell.Offset(0, 1)" steht die Zahl 1 für die Anzahl der Spalten, die rechts vom Startbezug versetzt werden sollen (hier ist der Startbezug Spalte B, und die gewünschte Ausgabe befindet sich in Spalte C, die neben Spalte B liegt). Wenn Sie die Ergebnisse in Spalte S ausgeben möchten, ändern Sie die Zahl 1 in 10.

Ab sofort wird bei jeder Änderung der Zelle B9 oder einer beliebigen Zelle im Bereich B9:B1000 die Gesamtanzahl der Änderungen aufaddiert und automatisch in die angegebene Zelle eingefügt.

Entfesseln Sie die Magie von Excel mit Kutools AI

• Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
• Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
• VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
• Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
• Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!