Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Prüfung, welche Zellen nach Öffnen verändert wurden

Gruppe

Vergleich

Problem

Wie kann ich feststellen, welche Zellen eines bestimmten Bereiches seit dem Öffnen der Arbeitsmappe verändert wurden?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub Vergleich()
   Dim wks As Worksheet
   Dim rngChange As Range, rngTest As Range, rngSource As Range
   Set rngSource = Worksheets("Daten").Range("C5:K39")
   Set wks = Worksheets("Dummy")
   For Each rngTest In rngSource.Cells
      If rngTest.Value <> wks.Range(rngTest.Address).Value Then
         If rngChange Is Nothing Then
            Set rngChange = rngTest
         Else
            Set rngChange = Union(rngChange, rngTest)
         End If
      End If
   Next rngTest
   If rngChange Is Nothing Then
      MsgBox "Keine Veränderungen!"
   Else
      rngChange.Select
   End If
End Sub