Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Makros zeitgesteuert aufrufen

Gruppe

OnTime

Problem

Wie kann ich in Abhängigkeit vom Zeitpunkt des Öffnens einer Arbeitsmappe Makros aufrufen?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.

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