Wie überwache ich Zelländerungen in Excel?
Wie können Sie Arbeitsblattzellen überwachen, wenn die Daten in Excel geändert werden? Dies kann Ihnen helfen, die geänderten Zellen so schnell wie möglich zu identifizieren. In diesem Artikel werde ich über einige interessante Methoden sprechen, um diese Aufgabe in Excel zu lösen.
Überwachen Sie Zelländerungen in Excel mit der Funktion Änderungen verfolgen
Überwachen Sie Zelländerungen in Excel mit VBA-Code
Überwachen Sie Zelländerungen in Excel mit der Funktion Änderungen verfolgen
Excel hat eine nützliche Änderungen verfolgen Mit dieser Funktion können Sie die geänderten Zellen markieren. Gehen Sie dazu wie folgt vor:
1. Klicken Sie Bewertung > Änderungen verfolgen > Markieren Sie Änderungen, siehe Screenshot:
2. In dem Markieren Sie Änderungen Führen Sie im Dialogfeld die folgenden Vorgänge aus:
(1.) Überprüfen Verfolgen Sie Änderungen während der Bearbeitung. Dies teilt auch Ihre Arbeitsmappe.
(2.) Unter dem Markieren Sie, welche Änderungen Geben Sie im Abschnitt Wann, Wer und Wo die gewünschten Elemente an.
(3.) Überprüfen Sie zuletzt Markieren Sie Änderungen auf dem Bildschirm .
3. Klicken Sie nach Abschluss der Einstellungen auf OK Wenn Sie jetzt die Zellenwerte in den angegebenen Zellen ändern, befindet sich ein Rahmen mit einem dreieckigen Symbol um die geänderten Zellen (siehe Abbildung):
Note: Mit dieser Methode wird Ihre Arbeitsmappe zu einer freigegebenen Arbeitsmappe.
Überwachen Sie Zelländerungen in Excel mit VBA-Code
Der folgende VBA-Code kann Ihnen auch dabei helfen, die Zellenwerte zu überwachen, wenn sie geändert werden. Gehen Sie dazu folgendermaßen vor:
1. Klicken Sie mit der rechten Maustaste auf die Registerkarte "Blatt", auf der Sie Zelländerungen überwachen möchten, und wählen Sie Code anzeigen aus dem Kontextmenü in der geöffneten Microsoft Visual Basic für Applikationen Im Fenster kopieren Sie bitte den folgenden VBA-Code und fügen Sie ihn in das Modul ein:
VBA-Code: Zellenänderungen im Excel-Arbeitsblatt überwachen:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160728
Dim xrng As Range
Set xrng = Range("A1:E7")
If Not Application.Intersect(xrng, Range(Target.Address)) _
Is Nothing Then
MsgBox "Cell " & Target.Address & " has changed.", vbInformation, "Kutools for Excel"
End If
End Sub
Hinweis: In dem obigen Code, A1: E7 ist der Datenbereich, den Sie überwachen möchten, wenn sich die Zelle ändert. Sie können ihn nach Bedarf ändern.
2. Speichern und schließen Sie dann dieses Codefenster. Wenn Sie nun den Zellenwert im angegebenen Bereich ändern, wird ein Meldungsfeld angezeigt, das Sie daran erinnert (siehe Abbildung):
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!