Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
724to728
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Countdown WM 2006

Countdown WM 2006
29.01.2006 09:44:06
Rolf
Hallo,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Countdown WM 2006
29.01.2006 10:24:11
Sigi
Hallo Rolf,
nur wenige Änderungen sind nötig ...
Option Explicit
Public MyBar As CommandBar
Public Verzögerung As Date
Dim MyButton As CommandBarControl
Dim Termin As Date
Dim Dauer As Date
Dim Tage As Long
Public Sub Symbolleiste()
Termin = DateSerial(2006, 6, 9) + TimeSerial(18, 0, 0)
Dauer = Termin - Now
On Error Resume Next
Application.CommandBars("Zeit").Delete
Set MyBar = Application.CommandBars.Add("Zeit", msoBarFloating, Temporary:=True)
Set MyButton = MyBar.Controls.Add(msoControlButton)
Tage = Int(Dauer)
With MyButton
.Caption = Tage & " Tage u. " & Format(Dauer, "hh:mm:ss")
.OnAction = "Nichts"
.Style = 2
.TooltipText = "Nichts da!"
End With
With MyBar
.Visible = True
.Protection = 27
End With
Countdown
End Sub

Private Sub Countdown()
If Dauer <> 0 Then
Dauer = Dauer - TimeValue("00:00:01")
MyButton.Caption = Tage & " Tage u. " & Format(Dauer, "hh:mm:ss")
Verzögerung = Time + TimeSerial(0, 0, 1)
Application.OnTime Verzögerung, "Countdown"
Else
End
End If
End Sub


Private Sub Nichts()
'macht nichts
End Sub

Gruß Sigi
Anzeige
AW: Countdown WM 2006
29.01.2006 11:24:08
Rolf
Danke für die schnelle Antwort,
ich habe aber noch eine Rückfrage: Heißt das jetzt, dass ich die Formel in der Arbeitsmappe so lassen kann und nur deine Formel als Modul nehmen kann, so wie sie ist?
In der Archivversion ist es ja so, das der Countdown über das gewählte Ende weiter läuft.
Hätte ich in meiner Version auch nichts dagegen.
Wenn es nicht zuviele Umstände bereitet, könnte die bestehende ArchivFormel nicht so umgeschrieben werden, das der Countdown zu jedem freigewählten Datum(Tage,Stunden,Minuten,Sekunden) erstellt werden kann und weiter läuft?
Da ich noch Excelanfänger bin, würdet Ihr mir damit sehr helfen.
Großes Dankeschön schon mal im voraus.
2.) Noch ein kleines Problem:
In Zelle A1, A2 und A3 stehen Zahlen.
In Zelle A4 soll jetzt eine "1" erscheien, wenn A1 größer oder gleich A2;A3 ist.
Tausend Dank
Rolf
Anzeige
AW: Countdown WM 2006
30.01.2006 18:16:46
Rolf
Danke, Beispiele haben mir sehr weitergeholfen.
Rolf

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige