klokje automatisch laten lopen tussen 8 en 8

[Excelproblem]

heey allemaal,

Ik heb momenteel een klokje (als Grafiek), met daarachter deze vba:

Sub StartKlok()
    Calculate
    Application.OnTime Now + TimeSerial(0, 0, 1), "StartKlok"
End Sub
Sub Stopklok()
    On Error Resume Next
    Application.OnTime Now + TimeSerial(0, 0, 1), "StartKlok", , False
End Sub

ter verduidelijking: een klok met daaronder 2 knoppen: 1 = "StartKlok", Als je hierop klikt gaat hij elke seconde berekenen, en de 2e is dus dat hij stopt met berekenen.

Nu is het echter de bedoeling dat hij alleen tussen 8:00:00 en 20:00:00 automatisch herlaadt. 2 vragen:
1. is het mogelijk om de klok te laten lopen zonder constant berekenen? zie Bekijk bijlage Voorbeeldbestand.xlsm
2. als dit niet mogelijk is, is het dus de bedoeling om hem tussen 8 en 8 te laten lopen, welke code zit hier achter?

 

[wampier]

Ligt eraan wat het probleem is. In principe kun je in je "StartKlok" procedure gewoon niets doen als het niet tussen 8 en 20 uur is?

Sub StartKlok()
    if hour(now()) >7 and hour(now()) <21 then
         Calculate
    end if
    Application.OnTime Now + TimeSerial(0, 0, 1), "StartKlok"
End Sub

 

[Excelproblem]

de bedoeling is dus gewoon dat om 8 uur 's ochtends macro startklok wordt geactiveerd, en 's avonds 8 uur de macro stopklok.

 

[wampier]

Maar staat de file 24uur per dag aan, en als er verder niets moet gebeuren, wat is er dan mis met mijn oplossing?

 

[Excelproblem]

Je hebt gelijk, hij klopt zo. dankje