Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Meldung bei Werteänderung

Gruppe

Calculate

Problem

Wie kann ich immer dann, wenn sich der Wert in Zelle C1 ändert, eine Meldung anzeigen lassen?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

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