Wie kann man zählen, wie oft eine Zelle in Excel geändert wird?
Um zu zählen, wie oft eine bestimmte Zelle in Excel geändert wird, können die in diesem Artikel bereitgestellten VBA-Codes hilfreich sein.
Zählen Sie, wie oft eine Zelle mit VBA-Code geändert wird
Zählen Sie, wie oft eine Zelle mit VBA-Code geändert wird
Die folgenden VBA-Codes können Ihnen helfen, zu zählen, wie oft eine bestimmte Zelle in Excel geändert wird.
1. Klicken Sie in einem Arbeitsblatt, das eine oder mehrere Zellen enthält, für die Sie die Gesamtänderung berechnen müssen, mit der rechten Maustaste auf die Blattregisterkarte, und klicken Sie dann auf Code anzeigen aus dem Kontextmenü. Siehe Screenshot:
2. In der Öffnung Microsoft Visual Basic für Applikationen Fenster, kopieren Sie einen der folgenden VBA-Codes und fügen Sie ihn in die Code Fenster nach Ihren Wünschen.
VBA-Code 1: Änderungen nur an einer 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
Note: Im Code ist B9 die Zelle, die Sie zum Zählen der Änderungen benötigen, und C9 ist die Zelle zum Auffüllen des Zählergebnisses. Bitte ändern Sie sie nach Bedarf.
VBA-Code 2: Verfolgen Sie Änderungen an mehreren Zellen in einer Spalte
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
Note: In dieser Zeile "Setze xRRg = xCell.Offset(0, 1)", die Nummer 1 stellt die Anzahl der Spalten dar, die rechts von der Startreferenz versetzt werden sollen (hier ist die Startreferenz Spalte B, und die Anzahl, die Sie zurückgeben möchten, befindet sich in der Spalte C die sich neben Spalte B befindet). Wenn Sie die Ergebnisse in Spalten ausgeben müssen S, Nummer ändern 1 zu 10.
Wenn sich von nun an Zelle B9 oder eine beliebige Zelle im Bereich B9:B1000 ändert, wird die Gesamtzahl der Änderungen überlagert und automatisch in die angegebene Zelle eingetragen.
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!