HERBERS Excel-Forum - die Beispiele

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

Home

Gruppe

Ereignis

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

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

Msg mit 2 Ereignissen +Cancel Ereignisprozedur
Makro für ereignisabh. Druck verschiedener Seiten UF Activate / Initialize Ereignis
Namen definiert- in Ereignis verwenden? Zeilen aus- einblenden als Ereignis?
Welches Ereignis ist das richtige ?? Fehler 1004 bei Ontime
Ereignis Arbeitsblatt sperren abfangen Ereignisprozedur f. Multipage-Reiter
Frage zum Change ereignis laufende ontime anzeigen lassen
application.ontime - irgendwo hängts!!! Change-Ereignis in Combobox unterdrücken
OnTime beenden! 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
Schaltfläche - Ereignis erst nach Bestätigung ausl Objekt_Error - Ereignis in UserForm
application.ontime change ereigniss auf userform.
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