Bestimmtes Makro beenden
15.05.2014 17:17:30
Ben
ich habe mal wieder eine Frage.
Folgende Aufgabe stellt sich mir gerade.
Ich habe eine Tabelle erstellt, in der stündlich neue Daten gezogen werden. (Immer 10 Minuten nach einer vollen Stunde. Also 3:10; 4:10; 5:10 usw.) Das mache ich wie folgt.
DieseArbeitsmappe
Private Sub Workbook_Open()
Call startenm
End Sub
Modul 1
Sub startenm()
Application.OnTime TimeValue("17:10:00"), "Tabelle1.data16"
Application.OnTime TimeValue("18:10:00"), "Tabelle1.data17"
Application.OnTime TimeValue("19:10:00"), "Tabelle1.data18"
Application.OnTime TimeValue("20:10:00"), "Tabelle1.data19"
Application.OnTime TimeValue("21:10:00"), "Tabelle1.data20"
Application.OnTime TimeValue("22:10:00"), "Tabelle1.data21"
Application.OnTime TimeValue("23:10:00"), "Tabelle1.data22"
End Sub
Aus dieser Tabelle habe ich 3 Charts erstellt auf jeweils einem Sheet.
Chart
Chart_2
Chart_3
Diese 3 Charts lasse ich jede Minute wechseln um sie auf einem Monitor anzeigen zu lassen.
Das mache ich wie folgendermaßen.
Sub rochar1()
Windows("datei.xlsm").Activate
Sheets("Chart").Select
Application.OnTime Now + TimeValue("00:01:00"), "rochar2"
End Sub
Sub rochar2()
Windows("datei.xlsm").Activate
Sheets("Chart_2").Select
Application.OnTime Now + TimeValue("00:01:00"), "rochar3"
End Sub
Sub rochar3()
Windows("datei.xlsm").Activate
Sheets("Chart_3").Select
Application.OnTime Now + TimeValue("00:01:00"), "rochar1"
End Sub
Vielleicht gibt es hier eine einfachere Variante. Mir ist leider nichts besseres eingefallen :)Jetzt zu dem eigentlichen Problem, bei dem ich nicht weiter komme.
Ich möchte per Schaltfläche die Rotation "Starten" bzw. "Beenden".
Also ich drücke z.B. die erste Schaltfläche und die Rotation der Charts wird deaktiviert. Zum aktivieren der Rotation würde dann eine zweite Schaltfläche vorhanden sein, die sie wieder startet.
Wenn ich jetzt aber die Schaltfläche zum "Beenden" drücke, soll lediglich die Rotation der Charts stoppen. Das stündliche aktualisieren der Tabelle soll weiterhin durchlaufen.
So eine Art Rotation On/Off Button.
Habt ihr eventuell eine Idee wie ich das Problem lösen könnte?
Vielen Dank fürs Lesen
Gruß
Ben