Thema: Bei Erreichen eines vorgegebenen Wertes Datum eintragen

Home

Gruppe

Ereignis

Problem

Wenn sich der Wert der Formel in Spalte A auf > 10 erhöht, soll in B1 das aktuelle Datum mit Zeit eingetragen werden.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle1

Private Sub Worksheet_Calculate()
   Dim iRow As Integer, iRowL As Integer
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   For iRow = 1 To iRowL
      If Cells(iRow, 1) > 10 Then
         Cells(iRow, 2).Value = Now
      End If
   Next iRow
End Sub

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?