So führen Sie ein Sub in . aus Excel VBA nach einer bestimmten Zeit, verwenden Sie onTime, Now und die TimeValue-Funktion. Platzieren Sie zuerst ein Sub in einem Modul.
1. Öffnen Sie den Visual Basic-Editor und klicken Sie auf Einfügen, Modul.
2. Fügen Sie das folgende Unter mit Namenserinnerung hinzu:
Sub-Erinnerung()
MsgBox "Vergessen Sie Ihr Meeting um 14.30 Uhr nicht"
End Sub
Wir möchten, dass Excel VBA dies unter 5 Sekunden ausführt, nachdem auf eine Befehlsschaltfläche geklickt wurde.
2. Platzieren Sie eine Befehlsschaltfläche in Ihrem Arbeitsblatt und fügen Sie die folgende Codezeile hinzu:
Application.OnTime Now() + TimeValue("00:00:05"), "Erinnerung"
3. Klicken Sie in dem Arbeitsblatt auf die Befehlsschaltfläche.
Ergebnis 5 Sekunden später:
4. Wenn Sie dieses Sub zu einem bestimmten Zeitpunkt ausführen möchten, verwenden Sie einfach die folgende Codezeile:
Application.OnTime TimeValue("14:00:00 am"), "Erinnerung"
5. Klicken Sie in dem Arbeitsblatt auf die Befehlsschaltfläche, und warten Sie bis 14:00 Uhr, um zu sehen, dass Ihr Sub ausgeführt wird.
Hinweis: Sie werden Excel VBA wahrscheinlich nicht verwenden, um sich an ein wichtiges Meeting zu erinnern, aber wenn Sie möchten, fügen Sie ein Makro wie dieses am besten in ein Arbeitsmappen-Öffnen-Ereignis ein. Auf diese Weise erhalten Sie um 14:00 Uhr automatisch eine Erinnerung (Sie müssen nicht auf eine Befehlsschaltfläche klicken, um das Makro zu aktivieren). Die Erinnerung erhalten Sie natürlich nur, wenn Sie Ihre Arbeitsmappe geöffnet lassen.