habe mal wieder ein Problem und hoffe auf eure Hilfe.
Ich habe bereits eine Tabelle auf der die Bildlaufleiste alle x Sekunden/Minuten/Stunden eine Zelle weiter nach rechts geht. Gestartet und Beendet per Klick.
Nun möchte ich das so umbasteln, dass zu einer bestimmten Uhrzeit gestartet wird und dann alle 30 Minuten die Bildlaufleiste einen nach rechts rückt. Sobald man auf den Pause/Weiter-Button klickt soll er anhalten und bei einem weiteren Klick weiter machen, jetzt aber an der richtigen Stelle. In der zweiten Zeile stehen die Uhrzeiten, daran soll er sich orientieren und dann an die richtige Stelle springen.
Zur Verdeutlichung habe ich euch meine Datei angehängt und das VBA nicht gesprerrt.
https://www.herber.de/bbs/user/114146.xlsm
Vielen Dank für eure Hilfe
Hier die bisherigen Codes aus dem Modul:
Option Explicit
Dim Beenden As Boolean
Sub Weiter()
'Bildlaufleiste eine Zelle weiter nach rechts, die Uhrzeit wird aktualisiert, Zeitintervall _
kann angepasst werden
If Beenden = True Then Exit Sub
ThisWorkbook.Worksheets("Manueller-Start").Range("A1") = Format(Time, "hh:mm")
ActiveWindow.SmallScroll ToRight:=1
Application.OnTime Now + TimeValue("00:00:02"), "Weiter"
End Sub
Sub Start()
'Start von "Weiter"
Beenden = False
Weiter
End Sub
Sub Ende()
'Ende von "Weiter"
Beenden = True
End Sub
Und hier die aus der Arbeitmappe:
Option Explicit
Sub Manuell()
'bei Klick auf den "Start"-Knopf wird alle x Minuten die Bildlaufleiste eine Zelle nach rechts _
gesetzt
Application.OnTime Now + TimeValue("00:00:02"), "Weiter"
End Sub
Sub Automatisch()
'ab einer bestimmten Uhrzeit wird alle x Minuten die Bildlaufleiste eine Zelle nach rechts _
gesetzt; Zeitintervall bestimmt das Makro "Weiter"
Application.OnTime TimeValue("08:04:00"), "Weiter"
End Sub
Gecko