Wie zählt man die Anzahl der Änderungen einer Zelle in Excel?
Mit den in diesem Artikel bereitgestellten VBA-Codes können Sie die Anzahl der Änderungen einer bestimmten Zelle in Excel problemlos erfassen.
Zählen der Anzahl der Änderungen einer Zelle mithilfe von VBA-Code
Zählen der Anzahl der Änderungen einer Zelle mithilfe von VBA-Code
Die folgenden VBA-Codes helfen Ihnen, die Anzahl der Änderungen einer bestimmten Zelle in Excel zu erfassen.
1. Klicken Sie im Arbeitsblatt, das eine oder mehrere Zellen enthält, für die Sie die Gesamtanzahl der Änderungen berechnen möchten, mit der rechten Maustaste auf die Blattregisterkarte und wählen Sie anschließend im Kontextmenü Code anzeigen. Siehe Screenshot:
2. Fügen Sie im geöffneten Fenster Microsoft Visual Basic for Applications einen der folgenden VBA-Codes entsprechend Ihren Anforderungen in das Code-Fenster ein.
VBA-Code 1: Änderungen nur einer Zelle verfolgen
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 SubHinweis: Im Code steht B9 für die Zelle, deren Änderungen gezählt werden sollen, und C9 für die Zelle, in der das Zählergebnis angezeigt wird. Passen Sie diese Angaben bitte entsprechend Ihren Anforderungen an.
VBA-Code 2: Änderungen mehrerer Zellen in einer Spalte verfolgen
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 SubHinweis: In der Zeile „Set xRRg = xCell.Offset(0, 1)“ steht die Zahl 1für die Anzahl der Spalten, um die nach rechts gegenüber der Ausgangsreferenz versetzt wird (hier ist die Ausgangsreferenz Spalte)B, und das gewünschte Ergebnis wird in Spalte C ausgegeben, die direkt neben Spalte B liegt). Falls Sie die Ergebnisse stattdessen 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 vorgenommenen Änderungen fortlaufend summiert und automatisch in die festgelegte Zelle eingetragen.
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
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