Waarom stagneert de timer

[Bram65]

beste

Ik heb een groot workbook waar een timer inzit.
Die timer is actief zolang het workbook is geopend.

Nu merk ik dat de timer na enkele seconden stagneert zoals in dit voorbeeld bestandje.
Mijn vraag is hoe dit kan.

In het originele workbook is de uit-te-voeren code iets groter dan in dit bestandje.
Dus wat doe ik niet goed?

Ik werk met W11 en Office 365

gr Bram

 

[edmoor]

In dat document zie ik geen probleem met de timer.
Deze blijft hier gewoon doorlopen tot ik de rode cel selecteer.
Wel je VoerCodeUit macro iets aangepast, maar dat staat los van het probleem dat je noemde.

 

[Bram65]

Dank je Edmoor, ik heb ChatGPT er ook op los gelaten en die geeft aan dat het gebruik van 'ontime' de boosdoener is in deze. Het adviseerd een Windows-timer te gebruiken.
De code die ChatGPT hiervoor aangaf heb ik in mijn testcode ingevoerd en de stagnering is verdwenen.
Storingen zijn zelfs hiermee niet volledig uit te sluiten. Wanneer Windows andere, op de achtergrond lopende, apps voorrang geeft op Excel, zal de timer stagneren. Dat is waarschijnlijk ook de reden dat de eerste code bij jou wel werkt en hier stagneert. Deze nieuwe versie werkt hier wel goed dus is het zeker een verbetering. ChatGPT gaf ook nog een derde optie aan, weet niet meer hoe die dat werd genoemd maar is veel omslachtiger. Kan altijd nog.

Overigens heb jouw aangepaste code overgenomen, is ook nieuw voor mij.

 

[edmoor]

Op zich niks mis met de SetTimer functie in deze context.
Deze functie is echter ook niet altijd even betrouwbaar.

 

[Bram65]

Dat laatste schreef ik al maar wanneer ik in het originele workbook de timer heb vervangen door deze nieuwe, en het werkt, is het mij goed. Zo niet, kan ik altijd die derde optie bij ChatGPT nog opvragen.

Jouw code mbt kleuraanpassing werkt wel in de eerste verie maar niet in de tweede.
Snap daar niets van maar de If...Then werkt in de nieuwe versie goed.
Toch dank voor het meedenken.

 

[edmoor]

Heb je in de vorige dit wel gedaan?

Option Explicit

Private VolgendeTijd As Date
Private wrd As Integer '<---