Office: Countdown

Hallo
Mein Problem ist folgendes. Ich hab in ner Tabelle verschiedene Charaktäre von einem Spiel aufgeführt welche alle Weiterbildungen am laufen haben. Diese zeiten ändern sich mit jeder Stufe.
Nun möchte ich für jeden Spieler nen Countdown einfügen, in der Art das ich in eine Zelle(H16 bis H36) die Zeit eingebe und diese auch in diesem Feld zurückgezählt wird. Nach Ablauf der Zeit wäre eine Infomeldung und ein Ton der über den PC(nicht die Boxen)wiedergegeben wird sehr praktisch.
Wie mache ich das am besten,da ich absolut keine Ahnung von VBA oder Makros habe?

Danke im Vorraus

 

Hallo Billy,

soll die Zeit laufen aktualisiert werden?
Nur Endzeit ist einfach über OnTime zu realisieren.
Laufendezeit http://hajo-excel.de/chCounter3/getfile.php?id=74

Gruß Hajo

 

Danke für die schnelle Antwort.
Meinte eher wie auf deiner Seite der counter2. Nur das er auch weiterlaufen müsste wenn eine Eingabe erfolgt.
Wäre es schwer es so zu programmieren das der Countdown in der gleichen Zelle runterzählt in die man die Zeit eingibt? Und ist es möglich das das akustische Signal auch zu hören ist wenn ein anderes Fenster geöffnet ist?

 

Hallo Billy,

zum Ton habe ich keinen Ansatz.
<pre><span>

<span>' **************************************************************
' Modul: DieseArbeitsmappe Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************</span>

<span>Option</span> <span>Explicit</span>

<span>Private</span> <span>Sub</span> Workbook_BeforeClose(Cancel <span>As</span> <span>Boolean</span>)
<span>'**************************************************</span>
<span>'* H. Ziplies *</span>
<span>'* 18.04.04 *</span>
<span>'* erstellt von Hajo.Ziplies@web.de *</span>
<span>'* http://Hajo-Excel.de/ *</span>
<span>'**************************************************</span>
<span>On</span> <span>Error</span> <span>Resume</span> <span>Next</span>
Application.OnTime EarliestTime:=DaEt, Procedure:=<span>"Zeitmakro"</span>, Schedule:=False
<span>End</span> <span>Sub</span>

</span></pre><pre><span>

<span>' **************************************************************
' Modul: Tabelle1 Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************</span>

<span>Option</span> <span>Explicit</span>
<span>'**************************************************</span>
<span>'* H. Ziplies *</span>
<span>'* 06.06.09 *</span>
<span>'* erstellt von Hajo.Ziplies@web.de *</span>
<span>'* http://Hajo-Excel.de/ *</span>
<span>'**************************************************</span>

<span>Private</span> <span>Sub</span> Worksheet_Change(<span>ByVal</span> Target <span>As</span> Range)
<span>If</span> Target.Address &lt;&gt; <span>"$D$1"</span> <span>Then</span> <span>Exit</span> <span>Sub</span>
<span>On</span> <span>Error</span> <span>Resume</span> <span>Next</span> <span>' Fehlerbehandlung falls Zeitmakro noch nicht gestartet</span>
<span>' Zeitmarko anhalten falls schon gestartet</span>
Application.OnTime EarliestTime:=DaEt, Procedure:=<span>"Zeitmakro"</span>, Schedule:=False
<span>On</span> <span>Error</span> <span>GoTo</span> 0 <span>' Fehlerbehandlung wieder an Excel &uuml;bergeben</span>
<span>If</span> IsNumeric(Target) <span>Then</span> <span>' Pr&uuml;fung ob Zellinhalt numerisch</span>
Application.EnableEvents = <span>False</span> <span>' Reaktion auf Eingabe abschalten</span>
Target.NumberFormat = <span>"[h]:mm:ss"</span> <span>' Zeiformat zuweisen</span>
Range(<span>"D1"</span>) = Target + DaZeit <span>' Restzeit eintragen um Taktfrequenz erh&ouml;ht, da gleich zur&uuml;ckgestellt wird</span>
Range(<span>"D1"</span>).NumberFormat = <span>"[h]:mm:ss"</span> <span>' Zeitformat zuweisen</span>
Application.EnableEvents = <span>True</span> <span>' Reaktion auf Eingabe einschalten</span>
Zeitmakro <span>' Zeitmakro starten</span>
<span>End</span> <span>If</span>
<span>End</span> <span>Sub</span>
</span></pre><pre><span>

<span>' **************************************************************
' Modul: Counter Typ = Allgemeines Modul
' **************************************************************</span>

<span>Option</span> <span>Explicit</span>
<span>'**************************************************</span>
<span>'* H. Ziplies *</span>
<span>'* 06.06.09 *</span>
<span>'* erstellt von Hajo.Ziplies@web.de *</span>
<span>'* http://Hajo-Excel.de/ *</span>
<span>'**************************************************</span>
<span>Public</span> DaEt <span>As</span> Date <span>' n&auml;chster Start des Makros</span>
<span>Public</span> <span>Const</span> DaZeit <span>As</span> Date = <span>"00:00:01"</span> <span>' Zeitabstand Blinken</span>

<span>Sub</span> Zeitmakro()
<span>With</span> ThisWorkbook.Worksheets(<span>"Tabelle1"</span>)
Application.EnableEvents = <span>False</span> <span>' Reaktion auf Eingabe abschalten</span>
<span>If</span> .Range(<span>"D1"</span>) &gt; DaZeit <span>Then</span>
.Range(<span>"D1"</span>) = .Range(<span>"D1"</span>) - DaZeit <span>' Zeit in der Zelle um die Taktfrequenz runter setzen</span>
DaEt = Now + DaZeit <span>' n&auml;chste Startzeit f&uuml;r das Makro festllegen</span>
Application.OnTime DaEt, <span>"Zeitmakro"</span> <span>' Makro starten zur Zeit DaEt</span>
<span>Else</span>
.Range(<span>"D1"</span>) = 0
<span>' Meldung bei Excel immer in Vordergrund</span>
MsgBox <span>"Endzeit erreicht"</span>, 1048576, <span>"Endzeit"</span>
<span>End</span> <span>If</span>
Application.EnableEvents = <span>True</span> <span>' Reaktion auf Eingabe einschalten</span>
<span>End</span> <span>With</span>
<span>End</span> <span>Sub</span>

</span></pre>

<span> Code eingef&uuml;gt mit: </span> <a>Excel Code Jeanie</a>

Gruß Hajo

 

Und wie genau trage ich den Code ein? Kann zwar neue Mudule erstellen, aber das umbenennen finde ich nicht. Heißt dann Modul1. Und wie kann ich den Typ des Moduls ändern?

 

Hallo Billy,

es steht in der Auflistung
DieseArbeitsmappe
Tabelle1
Modul Conter

Der vorhanden Code ist durch diesen zu ersetzen. DieseArbeitsmappe braucht nicht sein, da keine Veränderung.

Gruß Hajo

 

Alles klar. Habs verstanden. Dachte es wären alle 3 Module, welche ich dann erstellen wollte.
Hab jetzt alles ersetzt, bekomme aber nen Syntax Fehler in Tabelle1 bei:

Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Address &lt;&gt; "$D$1" Then Exit Sub

 

Hallo Billy,

das ist HTML erstsetze es mal durch
If Target.Address <> Then Exit Sub

Gruß Hajo

 

Läuft wunderbar. Danke!
Jetzt muss ich den Code ja einfach nur noch bei "D1" ändern für jeden Counter den ich brauche.

 

Habe versucht den Counter für ne zweite(insgesamt 20)Zelle zu erstellen. Bekam aber die Fehlermeldung
"Mehrdeutiger Name:Worksheet_Change".
Wie kann ich dieses Problem lösen? Am besten für alle 20.

 

Hallo Billy,

das ist recht aufwendig, das müßte so laufen wie in diesem Beispiel http://hajo-excel.de/chCounter3/getfile.php?id=285 für eine Stoppuhr nur Rückwärst.
Das ist mir aber Heute zu aufwendig das zu programmieren.

 

Wäre die Version mit Eingabe und Restzeitzelle einfacher für mehrere Counter umzuschreiben? Am Beispiel für einen 2ten könnt ich die andern dann selbst umschreiben.

 

Hallo Billy,

ich vermute Nein.
Ich vermute mal morgen kann ich mich ran setzen und das vor Formel 1 lösen.
Ich gehe mal davon aus die Zeiten sind in A1:A10
Das Beispiel ergänze ich dann auf meiner HP

Gruß Hajo

 

Bei mir sind es H14:H33. Was sich ja aber leicht ab ändern lässt.
Danke schonmal im Vorraus.

Gruß Billy

 

Hallo Billy,

der Bereich ist im Code festgelegt unter Open
http://hajo-excel.de/chCounter3/getfile.php?id=286

Gruß Hajo