Gruppe
Ereignis
Problem
Im Sekundenabstand soll geprüft werden, ob zu einer Excel-Arbeitsmappe Änderungen durchgeführt wurden.
StandardModule: Modul1
Public NextTime As Date
Public datUpDate As Date
Sub Updateclock()
Dim datUpDateNew As Date
NextTime = Now + TimeValue("00:00:01")
Application.OnTime NextTime, "Updateclock"
datUpDateNew = VBA.FileDateTime(Range("B1").Value)
If datUpDateNew > datUpDate Then
datUpDate = datUpDateNew
MsgBox "Dateiänderung um " & datUpDate
End If
End Sub
Sub StopClock()
Application.OnTime NextTime, "Updateclock", , False
End Sub