Fortlaufende Uhrzeit in Statusleiste zei
Lang
wer kann weiterhelfen? Habe versucht, in der Statusleiste die nachfolgende Prozedur (stammt aus Thema: Ereignis - OnTime, Text-Index: 067199) an's Laufen zu bringen. Es wird nur eine feste Uhrzeit angezeigt. Eine Zellenanzeige brauche ich nicht.
'Public Const gsMacro As String = "UpdateClock" deshalb nur:
Const gsMacro As String = "UpdateClock"
Public gdNextTime As Double '
Sub UpdateClock()
Application.DisplayStatusBar = True
' ActiveSheet.Range("S4").Calculate
Sub StartClock()
gdNextTime = Now + TimeSerial(0, 0, 1)
Application.OnTime earliesttime:=gdNextTime, procedure:=gsMacro, schedule:=True
End Sub
Sub StopClock()
On Error Resume Next
Application.OnTime earliesttime:=gdNextTime, procedure:=gsMacro, schedule:=False
Application.StatusBar = False
End Sub
Vorab vielen Dank!
Gruß Klaus Lang
Anzeige