Application.OnTime TimeSerial

[karell]

Sub M_snb_ontime_starten()
Application.OnTime TimeSerial(10, 0, 0), "M_snb"

End Sub

Sub M_snb()
MsgBox "module"
End Sub

Kan me iemand zeggen waarom dat hierboven niet die sub aanroept om 10 uur?
Zette dat al in blad1, in thisworkbook en in een gewoon module en het werkt niet.
Kan het niet vinden, maar wat doe ik verkeerd ?

 

[gast0660]

Probeer deze in ThisWorkbook open

Sub M_snb_ontime_starten()
Application.OnTime TimeValue("10:00:00"), "M_snb"
End Sub

Andere code in een module

 

[karell]

Dank voor de snelle reactie.

Maar het gaat niet.

 

[gast0660]

Euh?
Hierbij werkend vbtje
(om te testen de tijd eventjes aanpassen)
Dit vbtje open een userform op het gekozen tijdstip
Plaats anders eens een vb bestandje

 

[karell]

Dat is het eh....:thumb:
Geef toch graag een beetjen uitleg,want ik snap uwen euh? van hierboven nu,want dat werkt natuurlijk ook,maar ik ben een beginneling en veranderde dat uur en zat te wachten dan,maar natuurlijk moet je dat eerst opslaan en dan terug opendoen eer het kan werken.
Bedankt eh...:d

 

[gast0660]

Er is niets mis met een beginneling te zijn, alles moet geleerd worden
(weet niet of 'geleerd' Nederlands is, is in ieder geval Vlaams, moet ook nog leren)
Maar als je geholpen bent ben ik tevreden.
Indien interesse heb nog een stukje code waarbij het alleen werkt van maandag tot vrijdag (of tot zaterdag)
Anders
Suc6
Kleine edit
Hopelijk had je er een bakkie bij genomen

en veranderde dat uur en zat te wachten dan

 

[karell]

Jamer ik zei wel een uur ,maar euh....het zal daar wel aan gelegen hebben gelijk ge zegt ,dat ik er een pintje bij gepakt heb....want het was minuten werk :d en een beginneling blijf ik volgens mij altijd, als ik hier die code's zie.
Ge moogt tevreden zijn.