HERBERS Excel-Forum - die Beispiele

Thema: Meldung bei Werteänderung

Home

Gruppe

Ereignis

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

Beiträge aus dem Excel-Forum zu den Themen Ereignis und Calculate

Msg mit 2 Ereignissen +Cancel Ereignisprozedur
Mit Change() o. Calculate() Filtern und Drucken Makro für ereignisabh. Druck verschiedener Seiten
UF Activate / Initialize Ereignis Namen definiert- in Ereignis verwenden?
Zeilen aus- einblenden als Ereignis? Makro mit calculate starten
Welches Ereignis ist das richtige ?? Ereignis Arbeitsblatt sperren abfangen
Ereignisprozedur f. Multipage-Reiter Frage zum Change ereignis
Change-Ereignis in Combobox unterdrücken Combobox Ereignis
Userform, Ereignis deklarieren im Klassenmodul Welches Diagramm-Ereignis?
Bestimmtes Ereignis in Spalte zählen Command Button Ereignis
Ereignis von Laufzeit-Checkbox change-ereignis bei dynamischen Controls / Teil 2
Change Ereignis verhindern change-ereignis bei dynamisch erstellten Controls
Fehler bei "Calculate" Schaltfläche - Ereignis erst nach Bestätigung ausl
Objekt_Error - Ereignis in UserForm change ereigniss auf userform.
Calculate bei Fensterwechsel Click-Ereignis für Checlbox nicht ausführen?
Speichern einer Kopie durch Ereigniss Workbook_bef Reagieren auf Tastaturereignisse
Ausnahmen für Exit-Ereignis Exit-Ereignis SetFocus
select Ereigniss UF Show Ereignis zeitweise mit Fehler
Ereignismakro Selectereigniss in Spalte
doppeltes Klick-Ereignis Doppelklick-Ereignis
VBA Ereignis: Änderung der Hintergrundfarbe Ereigniscode aus zwei Teilen fnk. nicht
Exit Ereignis einer Textbox im Frame Change-Ereignis bei Auswahllisten
Worksheet_Change Ereignis erweitern Exit Ereignis springt nicht an
Exit-Ereignis Ereignis "BeforeSave" - ".Find" geht nic
change ereigniss nicht ausführen Userform Exit Ereignis
Rekursiven Aufruf von Ereignissen verhindern Makro läuft nicht, falsches Ereignis?