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

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

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Vergleich