Public old
Private Sub Worksheet_Activate()
initial = Array("A", "B", "C", "D", "E")
ReDim old(5, 2)
For dl = 0 To 4
rg = initial(dl) & "5"
old(dl, 0) = Range(rg).Value
old(dl, 1) = initial(dl)
Next
End Sub
Private Sub Worksheet_Calculate()
For n = 0 To 4
rg = old(n, 1) & "5"
If Range(rg).Value <> old(n, 0) Then
MsgBox "Veränderung in der Zelle " & old(n, 1) & "5 ! ", vbInformation + vbOKOnly
old(n, 0) = Range(rg).Value
Exit For
End If
Next
End Sub