Automatisch tijd met seconden weergeven in een cel via een functie

[gridishere]

Hallo!
Graag wil ik deze subroutine gebruiken als formule bijv: =TimeStamp()
Dit script zal de tijd met uren, minuten en seconden doorvoeren.

Sub TimeStamp()
    ActiveCell.Value = Time
    ActiveCell.NumberFormat = "h:mm:ss"
End Sub

Zou iemand me hier wat mee kunnen helpen?

Bij voorbaat dank,
grid

 

[richard1970]

Hoi,

Zo te zien ben je al wel wat bedreven met VBA.
In VBA moet je dan niet werken met sub (), maar met Function.
En die Function kun je weer oproepen in je werkblad met =Function()

Richard

 

[gridishere]

Hallo Richard,
Fijn dat je met mij mee denkt over dit idee. De functie die je beschrijft is het doel van mijn antwoord in deze thread. Eerder heb ik deze methode gebruikt in Excel. Dit lukt me hier niet mee. Misschien zijn er ook nog andere dingen voor nodig uit de kast.

Groet,
grid

 

[gridishere]

Ik kom hier op uit met cell format naar u:mm:ss

Option Explicit
Dim NextTick
Sub SimulateHittingF9()
Range("A1") = Now
NextTick = Now + TimeValue("00:00:01")
Application.OnTime NextTick, "SimulateHittingF9"
End Sub

Alleen dit is wel irritant want je ziet telkens de cursor bewegen. Maar er is een oplossing.

Groet,
grid