DATUM UND UHRZEIT
27.01.2009 21:18:30
Lutz
hab mich für folgende Lösung entschieden :
'********************************************************************************
'*
'* MODUL1
'* UHRZEIT IN UHRZEIT_LBL ANZEIGEN
'* DATUM IN DATUM_LBL ANZEIGEN
'* ERSTELLT AM 27.01.2009 VON LUTZ ROHLEDER
'*
'********************************************************************************
Sub DATUMUHRZEIT_START()
Intervall = Now + TimeValue("00:00:01")
t = Format(Time, "hh : mm : ss")
d = Format(Date, "dd. mmmm. yyyy")
userform1.UHRZEIT_LBL.Caption = t
userform1.DATUM_LBL.Caption = d
Application.OnTime Intervall, "DATUMUHRZEIT_START"
End Sub
Sub DATUMUHRZEIT_STOPP()
On Error Resume Next
Application.OnTime Intervall, "DATUMUHRZEIT_STOPP", , False
End Sub
und dann in der userform ausgeben !
einziger Nachteil, beim weiteren VBA - Arbeiten hinderlich, dadurch erst mal mit "DATUMUHRZEIT_STOPP" in userform nicht "scharf" !
Danke Lutz