subs uitvoeren op vaste uren

[Jorre]

Hallo,

Mijn Excel blad zou elk uur( elk vast uur, e.g. 00.00; 01.00; 02.00; ...) een aantal subs moeten uitvoeren. Verder heb ik een klok staan op mijn Main pagina die elke seconde wordt geupdate. Als ik mijn werkblad open word deze code opgeroepen.

Sub klok()
Dim tijdklok As Date

ThisWorkbook.Worksheets("Main Page").Cells(28, 1) = format(Time, "h:mm:ss")
ThisWorkbook.Worksheets("Main Page").Cells(29, 1) = format(Date, "dd/mm/yyyy")
tijdklok = Now + TimeValue("00:00:01")

Application.OnTime "00:00:00", "execute", "00:00:01"
Application.OnTime "1:00:00", "execute", "1:00:01"
Application.OnTime "2:00:00", "execute", "2:00:01"
Application.OnTime "3:00:00", "execute", "3:00:01"

Application.OnTime tijdklok, "klok"
End Sub

Deze code staat in Module1. Ik vind het nogal stom om de regel van application.Ontime 24keer te herhalen, is hier geen andere oplossing voor?

Greetz

Jorre

 

[Guus2005]

Gebruik een form en programmeer het timer event