AW: Statusleiste - Uhrzeit
25.08.2005 22:37:05
Matthias
Hallo Michael,
jetzt hat Erich schon, aber ich will meins jetzt auch loswerden:
in DieseArbeitsmappe:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopTimer
Application.StatusBar = False
End Sub
Private Sub Workbook_Open()
Me.IsAddin = True 'macht Tabellenblätter unsichtbar
StartTimer
End Sub
In ein normales Modul:
Option Explicit
Public NextTime As Date
'führt Prozedur "UpdateStatus" aus und gibt Excel Startzeit für die nächste Ausführung an:
Sub StartTimer()
NextTime = Now + TimeValue("00:01:00") 'jede Minute
UpdateStatus
If Time <= TimeValue("17:00") Then
Application.OnTime NextTime, "StartTimer"
End If
End Sub
'Löscht die OnTime-Anweisung wieder
Sub StopTimer()
On Error Resume Next
Application.OnTime earliesttime:=NextTime, Procedure:="StartTimer", Schedule:=False
On Error GoTo 0
End Sub
Sub UpdateStatus()
If Time > TimeValue("17:00") Then
Application.StatusBar = "Endlich Feierabend!"
MsgBox "Feierabend!"
Application.StatusBar = False
Else
Application.StatusBar = Format(TimeValue("17:01") - Time(), """noch"" h ""Stunden"" m ""Minuten"" s")
End If
End Sub
Gruß Matthias