Gruppe
Ereignis
Problem
Wie kann ich immer dann, wenn sich der Wert in Zelle C1 ändert, eine Meldung anzeigen lassen?
ClassModule: Tabelle2
Private Sub Worksheet_Calculate()
If gdValue <> Range("C1").Value Then
MsgBox "Der Wert von C1 hat sich von " _
& gdValue & " auf " & Range("C1").Value & _
" geändert."
gdValue = Range("C1").Value
End If
End Sub
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
gdValue = _
Worksheets("Tabelle1").Range("C1").Value
End Sub
StandardModule: basMain
Public gdValue As Double