IT Blog

Manchmal benötigt man in der Programmierung in Excel einen Zeitgeber, der in einem bestimmten Intervall ein Makro aufruft. Dieser Zeitgeber ist ganz einfach realisierbar:

Das Application – Objekt von Excel bietet die Methode “OnTime”. Dieser Methode reichen schon zwei Parameter, einmal der Zeitpunkt “EarliestTime” an dem das Makro “Procedure” gestartet werden soll. Das kann dann ungefähr so aussehen, wenn das Makro “DatenAktualisieren” nach 5 Minuten aufgerufen werden soll:

Application.OnTime DateAdd("n", 5, Now), "DatenAktualisieren"

Die Methode muss man dann immer nach dem ausführen des Makros aufrufen, damit Excel sich wiederrum auf dem Aufruf des Makros nach der definierten Zeit kümmert. Wie man das genau macht, kann man am besten dem kompletten Beispiel entnehmen.

Download einer Beispiel – Exceldatei. (Achtung, mit Autostartmakro): Download

Hier der Code, welcher ein ein Modul kopiert werden muss:

Private Const iMinute As Integer = 5 ‘ Timeraufruf alle 5 Minuten

Sub Auto_Open()
  ‘ Frage beim automatischen Start
  If MsgBox("Wollen Sie den automatischen Timer starten?", vbYesNo) = vbYes Then
    Call DatenAktualisieren ‘ Makro erstes mal beim Start aufrufen.
  End If
End Sub

Function TimerEinstellen()
  Application.OnTime DateAdd("n", iMinute, Now), "DatenAktualisieren"
End Function

Sub DatenAktualisieren()
  ‘ Hier könnte man so allerlei Zeugs erledigen…
  Call TimerEinstellen
  Range("A1") = "Daten zuletzt am " & Date & " um " & Format(Now, "hh:nn") & " aktualisiert. Nächste Aktualisierung in " & iMinute & " Minute(n)!"
  Beep
End Sub

So kann es gehen, wenn man einen Windows Server 2003 R2 SP 2 mit einem SQL Server 2005 ohne SP installiert und dann Windows Update besucht.

Ich mach jetzt erst mal Mittag und dann was anderes…