Thema: Makros zeitgesteuert aufrufen

ClassModule: DieseArbeitsmappe

Private Sub Workbook_Open()
   Select Case Hour(Time)
      Case Is < 9
         Call Routine9h
      Case Is < 15
         Call Routine15h
      Case Is < 20
         Call Routine20h
   End Select
End Sub

StandardModule: basMain

Sub Routine9h()
    MsgBox "Es ist vor 09:00h"
End Sub

Sub Routine15h()
    MsgBox "Es ist vor 15:00h"
End Sub

Sub Routine20h()
    MsgBox "Es ist vor 20:00h"
End Sub

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