Countdown WM 2006
29.01.2006 09:44:06
Rolf
die eingefügte Formeln habe ich aus eurem Archiv gefunden, klappt auch so ganz gut, müßte es nur auf den WM-Countdown ungeschrieben haben, da die Anzeige Tage, Stunden,Minuten und Sekunden sein soll. Wer könnte mir da helfen. Habe schon versucht die Daten auf ddd:hh:mm:ss zu ändern funktioniert aber so nicht.
Ferner habe ich festgestellt, das der Countdown nicht in der Symbolleiste angezeigt wird, sondern mitten auf dem Tabellenblatt in einer Art "Schaltfläche". Die kann man zwar versetzen, erscheint aber beim Neustart des Tabellenblatts immer wieder in der Mitte. Kann man diese auch an einer anderen Stelle veranken oder wie erscheint diese in der Symbolleiste.
Danke für eure Hilfe im voraus.
Rolf
Option Explicit
Private Sub Workbook_Open()
Symbolleiste
End Sub
Private Sub Workbook_Activate()
On Error Resume Next
MyBar.Visible = True
End Sub
Private Sub Workbook_Deactivate()
On Error Resume Next
MyBar.Visible = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime Verzögerung, "Countdown", , False
Application.OnTime Verzögerung, "Countup", , False
End Sub
In ein "normales Modul"
Option Explicit
Public MyBar As CommandBar, Verzögerung As Date
Dim MyButton As CommandBarControl, Zeit As Date
Public Sub Symbolleiste()
Zeit = TimeValue("00:15:00")
On Error Resume Next
Application.CommandBars("Zeit").Delete
Set MyBar = Application.CommandBars.Add("Zeit", msoBarFloating, Temporary:=True)
Set MyButton = MyBar.Controls.Add(msoControlButton)
With MyButton
.Caption = Right(Format(Zeit, "hh:mm:ss"), 5)
.OnAction = "nichts"
.Style = 2
.TooltipText = "Hier gibt's nichts zu klicken!"
End With
With MyBar
.Visible = True
.Protection = 27
End With
Countdown
End Sub
Private Sub Countdown()
If CStr(Zeit) <> "00:00:00" Then
Zeit = Zeit - TimeValue("00:00:01")
MyButton.Caption = Right(Format(Zeit, "hh:mm:ss"), 5)
Verzögerung = Time + TimeSerial(0, 0, 1)
Application.OnTime Verzögerung, "Countdown"
Else
Countup
End If
End Sub
Private Sub Countup()
Zeit = Zeit + TimeValue("00:00:01")
MyButton.Caption = Right(Format(Zeit, "hh:mm:ss"), 5)
Verzögerung = Time + TimeSerial(0, 0, 1)
Application.OnTime Verzögerung, "Countup"
End Sub
Private Sub nichts()
'macht nichts
End Sub