Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Prüfung im Sekundenabstand, ob eine Datei geändert wurde

Gruppe

OnTime

Problem

Im Sekundenabstand soll geprüft werden, ob zu einer Excel-Arbeitsmappe Änderungen durchgeführt wurden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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