Timer mm:ss in textbox VBA

[MmonkeyDX]

Hi all,
I have a problem with textboxes in userform.
Basically i just want to display one cell with a timer inside through one textbox in my userform.

In C2 i have a timer and the cell format is "mm:ss", so the textbox2 should display that cell in that format but it seems so complicate.
If the "ControlSource" of textbox2 is C2, then the value is something like this: "6,94444444444444E-05".
So i've used the code below but the timer goes mad and goes directly to 12:00:00 in the c2 cell and 0,5 in the textbox

Private Sub TextBox2_Change()
    TextBox2 = Format(TextBox2, "mm:ss")
End Sub

With this code there are no problems and the time is shown in hh:mm:ss but i need mm:ss

Private Sub TextBox2_Change()
    TextBox2 = Format(TextBox2, "hh:mm:ss")
End Sub

So i've changed it to

Private Sub TextBox2_Change()

TextBox2 = Right(Format(TextBox2, "hh:mm:ss"), 5)

End Sub

In this way the hours are hidden but the timer is freezed to 00:00 and i don't know why

Any solution for this problem? I can't belive there isn't an easy way to display in a textbox the content of a cell with timer inside.
Thank you so much for help

 

[diddi]

can you run the timer on the userform. the removes the linking problem you are having

 

[MmonkeyDX]

Of course this is an option, but i think that the textbox format problem's still remain :/

 

[diddi]

thats is the point. unlink the textbox from the worksheet. run the timer on the userform and update the cell periodically. i assume the userform is the front window, so if the sheet is not updated every second it wont matter anyway.

 

[Dix_Fix]

This thread may be a bit old, though I was having the same problem and found some code for show/hide of a userform for X amount of seconds.
Here is my adaptation of that code and it works great by simply applying text and removing the text at a given interval

Public SchTime

Sub ShowTB()
UserForm1.TextBox81 = "PASSWORD ACCEPTED"
SchTime = Now + TimeValue("00:00:05")
Application.OnTime SchTime, "HideTB"
End Sub

Sub HideTB()
UserForm1.TextBox81 = ""
End Sub