AW: automtische Berechnung
18.07.2006 10:52:59
Matthias
Hallo Stefan,
in "DieseArbeitsmappe":
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopClock
End Sub
Private Sub Workbook_Open()
TimerProc
End Sub
In ein allg. Modul:
Public NextTime As Date
Sub TimerProc()
NextTime = Now + TimeValue("00:02:00") 'alle 2 Minuten
' hier der Code, der regelmäßig ausgeführt werden soll:
ActiveSheet.Calculate
Application.OnTime NextTime, "TimerProc"
End Sub
Sub StopClock()
On Error Resume Next
Application.OnTime earliesttime:=NextTime, Procedure:="TimerProc", Schedule:=False
Application.StatusBar = False
End Sub
Ob der Befehl ActiveSheet.Calculate reicht, musst du ausprobieren.
Gruß Matthias