Suche eine Art Zeitmakro

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Jürgen
Versuch es doch mal so.
Um das Makro zu starten, musst Du zuerst auf F9 drücken.
Es erscheint eine Message, die Du noch mit Klick auf OK bestätigen musst, und dann beginnt die Zählung der Spielminuten
(die Messagebox lässt sich auch entfernen, wenn direkt mit F9 gestartet werden soll)
Jetzt erscheint in dem aktiven Tabellenblatt in Zelle D8 die Anzahl der Spielminuten und wird jede Minute um 1 erhöht.
Und wenn Du ein erneutes Mal auf F9 drückst, wird die Zählung sofort gestoppt, und es erscheint wieder eine Messagebox mit entsprechendem Hinweis.
Wichtig ist nur, dass Du in dem "richtigen" Tabellenblatt zum Start auf F9 drückst.
Denn sobald das Makro gestartet wurde, wird nur in DEM Tabellenblatt die aktuelle Spielminute angezeigt, in dem das Makro gestartet wurde.
Du wolltest eigentlich eine vollautomatische Ausführung zu einer bestimmten Uhrzeit.
Ich habe mich trotzdem für diese Version entschieden, da ja nicht immer sicher ist, dass ein Spiel genau zu einer bestimmten Uhrzeit beginnt.
Sollte Dir diese Idee nicht gefallen, kannst Du dies ja hier melden.
Genug der vielen Vorreden :-)
Hier ist der Beispiel-Code

'classModule:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "{F9}"

End Sub
Private Sub Workbook_Open()
    Application.OnKey "{F9}", "Start"

End Sub
'standardModule: Module1
Public Anfang As Boolean, SpielMinute As Integer, Spieltag As String
Sub Start()

        If Spieltag <> "" And Spieltag <> ActiveSheet.Name Then Exit Sub

        If Anfang = False Then
                Spieltag = ActiveSheet.Name
                frage = MsgBox("Klick - und Start", vbOKOnly, "Bei Klick auf OK gehts los!")
                Anfang = True
                Fussball
            Else
                Anfang = False
                SpielMinute = 0
                Spieltag = ""
                Application.OnTime Now + TimeValue("00:0:01"), "Fussball", , schedule:=False
                frage = MsgBox("Das Spiel ist beendet - die Zählung der Spielminuten auch.", vbOKOnly, "Spielende")
        End If

End Sub
Sub Fussball()
Wenn Du die letzte Zeile in diesem Code
Application.OnTime Now + TimeValue("00:01:00"), "Fussball"
wie folgt änderst
Application.OnTime Now + TimeValue("00:00:01"), "Fussball"
dann wird die "Spielminute" in jeder Sekunde um 1 erhöht.
Vielleicht für Testzwecke hilfreich.
Wenn Du nicht genau weißt, wo Du was hinkopieren sollst, dann ist hier noch mal die Bsp-Datei, und Du kannst sie ja Deiner Datei anpassen.
https://www.herber.de/bbs/user/4495.xls
Konnte ich Dir helfen?
Ciao
Thorsten

Hi Jürgen
Jetzt können die Jungs auch Pause machen :-)
Ich hab den Code so modifiziert, dass Du nun 3 mal auf F9 drücken musst.
1. Spielstart
2. Halbzeit
3. Spielende
Es ist vielleicht etwas "unglücklich", dass Du immer vom TV zum PC flitzen musst, wenn 1., 2., oder 3. passiert, aber wie willst Du dem PC "sagen", dass das Spiel 5 Min. später beginnt oder die reguläre Spielzeit sich verlängert?
So, entweder kannst Du den Code in Deinem Modul1 durch den folgenden ersetzen, oder am Ende ist wieder die Bsp-Datei.

Public Anfang As Boolean, SpielMinute As Integer, Spieltag As String, SpielPause As Boolean
Sub Start()

        If Spieltag <> "" And Spieltag <> ActiveSheet.Name Then Exit Sub

        If Anfang = False Then 'hier wurde das 1. Mal F9 gedrückt - Spielstart
                Spieltag = ActiveSheet.Name
                frage = MsgBox("Klick - und Start", vbOKOnly, "Bei Klick auf OK gehts los!")
                Anfang = True
                SpielPause = True
                Fussball
            Else
                If SpielPause = True Then 'hier wurde das 2. Mal F9 gedrückt - Halbzeit
                        SpielPause = False
                        frage = MsgBox("Halbzeit! - mit Klick auf OK geht's weiter", vbOKOnly, "let's have a break...")
                    Else
                        Anfang = False 'hier wurde das 3. Mal F9 gedrückt - Spielende
                        SpielMinute = 0
                        Spieltag = ""
                        Application.OnTime EarliestTime:=Now + TimeValue("00:01:00"), Procedure:="Fussball", schedule:=False
                        frage = MsgBox("Das Spiel ist beendet - die Zählung der Spielminuten auch.", vbOKOnly, "Spielende")
                End If
        End If

End Sub
Sub Fussball()
Die Datei
https://www.herber.de/bbs/user/4508.xls
Konnte ich helfen? :-)
Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suche eine Art Zeitmakro

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread