ich hab eine mitlaufende Uhr in meiner Datei, die auch super funktioniert. Das Einzige was nervt ist dass der Cursor jetzt jede Sekunde blinkt wenn die Uhrzeit aktuallisiert wird. Kann man dieses Blinken abstellen?
Sub Refresh_StatusBar()
'rekrusiver Aufruf
Application.OnTime Now + TimeValue("00:01:00"), "Refresh_StatusBar"
'mit TimeValue("hh:mm:00") wird die Aktuallisierungsrate beeinflußt
msg = CStr(Now)
msg = "Datum und Urzeit: " + Left(msg, Len(msg) - 3) 'Sekundenanzeige unterdrücken
Application.StatusBar = msg
End Sub