VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bei Erreichen eines vorgegebenen Wertes Datum eintragen

Gruppe

Ereignis

Bereich

Calculate

Thema

Bei Erreichen eines vorgegebenen Wertes Datum eintragen

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