Timer interval

[wieter]

Om lang op voorhand gemaakte afspraken in herinnering te brengen, flashen die datums.
De flash-interval staat nu op 1 seconde.

Sub startTimer()
Application.OnTime Now + TimeValue("00:00:01"), "kleur_cellen"
End Sub

Kan de flash-interval kleiner zijn dan 1 seconde?
Indien "ja" , hoe is dan de syntax?

 

[snb]

Waarom gebruik je hiervoor geen Outlook ?

 

[mvw64]

Probeer het eens zp

Application.Wait (Now + TimeValue("0:00:01") / 2)

 

[wieter]

@snb,
Om de lange winterdagen door te komen amuseer ik me zomaar wat met excel.
Dit bestand dient tot niets, ik was aan het experimenteren met "timer".

 

[wieter]

@MVW64
Geeft een fout.
Application.Wait --ongeldig aantal argumenten.

 

[Cobbe]

Application.OnTime Now + TimeValue("00:00:01") / 2, "kleur_cellen"

Natuurlijk werkt deze, wel ook in de endtimer aanpassen.

Maar het resultaat is een geflikker van jewelste maar je hebt geen overschot om nog een andere handeling te verrichten.

 

[wieter]

Hey Cobbe,
Jouw oplossing had ik eerder al geprobeerd en ik kwam tot dezelfde vaststelling als jij.
Blijkbaar kan men de interval dus niet instellen op 50h van een seconde.
Het zal dus 1 sec. blijven.
Bedankt.