An active clock

[Wil Moosa]

The following code gives the actual time (every second adapting) in cell A47 when macro SetTime is run. What shows up is this format "15-5-2003 14:48:25". What I want is only the time format "14:48:25". Changing the cell properties does not make a change. Who can help?

Dim SchedRecalc As Date

Sub SetTime()
SchedRecalc = Now + TimeValue("00:00:01")
Application.OnTime SchedRecalc, "Recalc"
End Sub

Sub Recalc()
Range("A47").Value = Now

Call SetTime
End Sub

Sub Disable()
On Error Resume Next
Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False
End Sub

 

[TommyGun]

Change this to Time. Now puts the full date/time combination, where Time will only place the actual time.

Range("A47").Value = Time

 

[Wil Moosa]

Thanks POME for the fast reply. It does work!

May I ask you another question? A label in a form is linked to this cell "A47". The label however is static; the time does not count up. The code in the label is as follows:

Private Sub Label3_Click()

End Sub

Private Sub UserForm_Initialize()
Label3 = Sheets("Dagteller").Range("A50").Text
End Sub

What code is needed that the form gets 'updated" every second?

 

[Juan Pablo González]

Thread was continued here:

http://www.mrexcel.com/board2/viewtopic.php?t=51240