AW: On Time Methode
18.08.2003 15:32:55
ChrisL
Hi Steffen
In der Recherche (und auch Excel-Hilfe) gibt es diverse Beispiele, zumal du dir die Antwort eigentlich im Titel schon selber gegeben hast.
' Klassenmodul DieseArbeitsmappe
Option Explicit
Private Sub Workbook_Activate()
Call StartClock
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call StopClock
End Sub
Private Sub Workbook_Deactivate()
Call StopClock
End Sub
Private Sub Workbook_Open()
Call StartClock
End Sub
' Standardmodul
Option Explicit
Public Const gsMacro As String = "UpdateClock"
Public gdNextTime As Double
Sub StartClock()
Dim iIntervall As Integer
gdNextTime = Now + TimeSerial(0, 5, 0)
Application.OnTime earliesttime:=gdNextTime, _
procedure:=gsMacro, schedule:=True
End Sub
Sub UpdateClock()
MsgBox "jetzt"
Call StartClock
End Sub
Sub StopClock()
On Error Resume Next
Application.OnTime earliesttime:=gdNextTime, _
procedure:=gsMacro, schedule:=False
End Sub
Gruss
Chris