Vise tiden i excel userform

Du skal have en kode til at køre, før det virker.

Kik på Ontime
her et eksempel, koden er it modul

Public Sub StartTid()
Application.OnTime Now() + TimeSerial(0, 0, 1), "OpdatererUr"
UserForm1.Show
End Sub

Public Sub OpdatererUr()

UserForm1.TextBox1 = Format(DateTime.Now, "dd-mm-yy h:mm:ss")
Application.OnTime Now() + TimeSerial(0, 0, 1), "OpdatererUr"
End Sub

Vær opmærksom på at det sløver en del.

Du kan også bruge en etiket, til at vise tiden på, det er bedre, da en tekstbox, er beregnet til input.

så skal koden se sådan ud

UserForm1.Etiket1.caption = Format(DateTime.Now, "dd-mm-yy h:mm:ss")

hvor Etiket1 er navnet på etiketten