Thema: Arbeitsmappe alle 5 Minuten neu berechnen

ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   On Error Resume Next
   Call BerechnenStop
   Application.Calculation = gvar
End Sub

Private Sub Workbook_Open()
   gvar = Application.Calculation
End Sub

StandardModule: basMain

Public Const ciIntervall As Integer = 10
Public Const dsMacro As String = "Berechnen"
Public gdNextTime As Double
Public gvar As Variant

Sub BerechnenStart()
   Application.Calculation = xlManual
   gdNextTime = Now + TimeSerial(0, 0, ciIntervall)
   Application.OnTime gdNextTime, dsMacro
End Sub

Sub Berechnen()
   Application.Calculate
   Call BerechnenStart
End Sub

Sub BerechnenStop()
   On Error Resume Next
   Application.OnTime earliesttime:=gdNextTime, _
      procedure:=dsMacro, schedule:=False
   Application.Calculation = gvar
End Sub

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