Lopende klok op formulier

[JosEindhoven]

Ik ben hier nu al een paar dagen mee bezig en kom maar niet tot de juiste code
Ik heb op een formulier een tekstbox met daarin de tijd.
Echter ik krijg hem maar steeds niet lopend, oftewel ik krijg de seconden niet aan het lopen

Om in vba te komen bevind zich een verborgen knop rechts naast de tijd

Wat zit er fout in de code ????

 

[edmoor]

Je doet in die timer ook niks met de textboxes op het formulier. Je schijft alleen naar A1 op het blad Artikelen.
Maak er eens dit van:

Sub NextTick1()
    Sheets("Artikelen").Range("A1").Value = Now()
    Zoeken.TextBox1 = Format(Now, "d-m-yyyy")
    Zoeken.TextBox2 = Format(Time, "hh:mm:ss")
    StartTimer1
End Sub

 

[JosEindhoven]

lopende klok

Hallo Edmoor

Had ik al geprobeerd
Echter ik zie de muisaanwijzer wel voortdurend knipperen, maar de seconden niet
?????

 

[edmoor]

Werkt hier prima in het document dat je zelf plaatste. Je kijkt wel in het userform toch? In A1 zal niks zien want kolom A heb je verborgen. Waar wil je die klok nou eigenlijk zien lopen?

Verder heb je die timer ook achter het blad Artikelen staan. Daar moet het weg.
Het hoort alleen in Module1 te staan. Daar moet je dus de aanpassing doen die ik aangaf.

 

[JosEindhoven]

Klok

Hallo Edmoor

Inderdaad, de fout lag in de sheet artikelen. Ik had hem daar niet weggehaald

Werkt nu als een trein
Wederom bedankt voor de moeite.