Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Public Const gsMacro As String = "UpdateClock"
Public gdNextTime As Double

Sub UpdateClock()
   Application.DisplayStatusBar = True
   Worksheets("Tabelle1").Range("A1").Calculate
   Application.StatusBar = "Zeit: " & Format(Time, "hh:mm:ss")
   Call StartClock
End Sub

Sub StartClock()
   gdNextTime = Now + TimeSerial(0, 0, 1)
   Application.OnTime earliesttime:=gdNextTime, _
      procedure:=gsMacro, schedule:=True
End Sub

Sub StopClock()
   On Error Resume Next
   Application.OnTime earliesttime:=gdNextTime, _
      procedure:=gsMacro, schedule:=False
   Application.StatusBar = False
End Sub

ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Call StopClock
End Sub

    

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