Probleme mit Application.OnTime
06.02.2021 18:49:44
Tom
Ich starte mit Application.OnTime zu definierten Zeiten am Tag ein Makro. Leider funktioniert es aber nur genau 24 Stunden und nicht länger. Es gibt keine Fehlermeldung nicht. Das Makro findet einfach, dass der Job erledigt ist. Ich weiss nicht, ob es ein Problem ist, weil ich die zwei Makros aufgrund der KB-Beschränkung in zwei einzelnen Makros verpacken müsste. Es sieht somit gekürzt so aus:
Sub Crawler_Timer1()
Application.OnTime TimeValue("00:00:01"), "Crawler_Test_001"
Application.OnTime TimeValue("01:00:00"), "Crawler_Test_001"
Application.OnTime TimeValue("04:00:00"), "Crawler_Test_001"
Application.OnTime TimeValue("05:00:00"), "Crawler_Test_001"
Application.OnTime TimeValue("08:00:00"), "Crawler_Test_001"
Application.OnTime TimeValue("09:00:00"), "Crawler_Test_001"
Application.OnTime TimeValue("10:00:00"), "Crawler_Test_001"
Application.OnTime TimeValue("11:59:00"), "Crawler_Test_001"
End Sub
Sub Crawler_Timer2()
Application.OnTime TimeValue("13:00:01"), "Crawler_Test_001"
Application.OnTime TimeValue("14:00:00"), "Crawler_Test_001"
Application.OnTime TimeValue("15:00:00"), "Crawler_Test_001"
Application.OnTime TimeValue("16:00:00"), "Crawler_Test_001"
Application.OnTime TimeValue("17:00:00"), "Crawler_Test_001"
Application.OnTime TimeValue("21:00:00"), "Crawler_Test_001"
Application.OnTime TimeValue("23:00:00"), "Crawler_Test_001"
Application.OnTime TimeValue("23:59:00"), "Crawler_Test_001"
End Sub
Gestartet wird es folglich mit:
Sub Bot_Timer()
Call Crawler_Timer1
Call Crawler_Timer2
End Sub
Ich habe mit Loop-Funktionen in allen drei Makros getestet. Leider läuft es auch da nur genau 24 Stunden.
Ich habe erst vor ein paar Monaten mit VBA angefangen und dachte, dass ich langsam etwas den Durchblick hätte. Hier bin ich aber wirklich überfordert. Hat vielleicht jemand von euch eine gute Idee, wie ich das Makro endlos oder mindestens ein paar Tage laufen lassen kann?
Danke im Voraus.
Forelli