Wie überwacht man Zellenänderungen in Excel?

Wie könnten Sie die Änderungen in den Zellen eines Arbeitsblatts überwachen, wenn sich Daten in Excel ändern? 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 bewältigen.

Zellenänderungen in Excel mit der Funktion "Änderungen nachverfolgen" überwachen

Zellenänderungen in Excel mit VBA-Code überwachen

Zellenänderungen in Excel mit der Funktion "Änderungen nachverfolgen" überwachen

Excel verfügt über eine nützliche Funktion "Änderungen nachverfolgen", mit der Sie geänderte Zellen markieren können. Bitte gehen Sie wie folgt vor:

1. Klicken Sie auf Überprüfen > Änderungen nachverfolgen > Änderungen hervorheben, siehe Screenshot:

2. Führen Sie im Dialogfeld "Änderungen hervorheben" die folgenden Schritte aus:

(1.) Aktivieren Sie "Änderungen während der Bearbeitung nachverfolgen. Dies teilt auch Ihr Arbeitsblatt."

(2.) Geben Sie im Abschnitt "Welche Änderungen hervorheben" die gewünschten Zeitpunkte, Personen und Orte an.

(3.) Aktivieren Sie zum Schluss die Option "Änderungen auf dem Bildschirm hervorheben".

3. Nachdem Sie die Einstellungen abgeschlossen haben, klicken Sie auf die Schaltfläche OK. Nun wird, wenn Sie Werte in den angegebenen Zellen ändern, ein Rahmen mit einem Dreieck-Symbol um die geänderten Zellen erscheinen, siehe Screenshot:

Hinweis: Mit dieser Methode wird Ihr Arbeitsblatt zu einem freigegebenen Arbeitsblatt.

Zellenänderungen in Excel mit VBA-Code überwachen

Der folgende VBA-Code kann Ihnen ebenfalls dabei helfen, Zellenwerte zu überwachen, wenn sie geändert werden. Gehen Sie dazu wie folgt vor:

1. Klicken Sie mit der rechten Maustaste auf die Registerkarte des Blatts, dessen Zellenänderungen Sie überwachen möchten, und wählen Sie Code anzeigen aus dem Kontextmenü. Im geöffneten Fenster "Microsoft Visual Basic for Applications" kopieren und fügen Sie den folgenden VBA-Code in das Modul ein:

VBA-Code: Zellenänderungen in einem 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: Im obigen Code ist A1:E7 der Datenbereich, den Sie überwachen möchten, falls sich Zellen ändern. Sie können ihn bei Bedarf anpassen.

2. Speichern und schließen Sie dann dieses Codefenster. Wenn Sie nun den Zellenwert im angegebenen Bereich ändern, wird ein Meldungsfeld angezeigt, um Sie darauf hinzuweisen, siehe Screenshot: