AW: ActiveWorkbook alle 30 Minuten aktualisieren
21.09.2009 18:54:11
Tino
Hallo,
Du musst Dir die Zeit in einer Variablen merken.
Beim beenden der Datei auf alle fälle Timer ausschalten.
'kommt als Code in DieseArbeitsmappe
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call StopTimer
End Sub
'kommt in ein Modul
Option Explicit
Public MerkTime As Date
Sub StartTimer()
ActiveWorkbook.RefreshAll
MerkTime = Now + TimeValue("00:30:00")
Application.OnTime MerkTime, "StartTimer"
End Sub
Sub StopTimer()
On Error Resume Next
Application.OnTime MerkTime, "StartTimer", , False
End Sub
Gruß Tino