Hallo,
habe eine Progressbar in einer Routine eingebunden und möchte dem Anwender mit dem Schließen
der Progressbar ("x" rechtes oben in PB) die Möglichkeit geben, den laufenden Code abzubrechen.
Hat jemand hierfür eine Lösung?
M.f.G.
Lutz
Moin Lutz
Welches "x" meinst du denn?
Meines Wissens hat die Progressbar kein "x".
Oder meinst du das "x" des Userforms, in dem sich die Progressbar befindet?
Und wenn du letzteres meinst, dann müsstest du den Code, der sich "ausserhalb" des UF's befindet, "in" das UF verlagern.
Und dann könntest du vielleicht über das Ereignis QueryClose oder Terminate des UF's den Code so steuerm, dass selbiger dann beendet wird.
Hilfts?
Ciao
Thorsten
AW: Progressbar schließen - Code beenden
17.04.2010 12:06:40
Oberschlumpf
Hi Lutz
Hier mal ein Bsp https://www.herber.de/bbs/user/69131.xls
Durch das Anklicken irgdeiner Zelle in Tabelle 1 wird ein Userform (UF) mit nur einem Objekt, nämlich der Progressbar (PB) angezeigt.
Durch das Anzeigen des UF's wird das Ereignis Activate ausgelöst, in dem eine For/Next.Schleife gestartet wird.
In dieser Schleife wird der Fortschritt selbiger in der PB dargestellt.
Läuft die Schleife ohne Unterbrechung bis zum Ende durch, wird mit einer MsgBox der End-Wert des Schleifenzählers angezeigt und das UF automatisch geschlossen.
Wird das Makro durch Anklicken des "x" vom UF vorzeitig unterbrochen, wird auch mit einer MsgBox der aktuelle Wert des Schleifenzählers angezeigt, und mit Hilfe des Ereignisses Terminate vom UF das ganze Makro beendet.
Um letzteres zu erreichen, muss aber der End-Befehl im Terminate-Ereignis wieder aktiviert werden.
Genaueres dazu findest du als Kommentar im Terminate-Ereignis.
Ist es denn das, was du suchst?
Ciao
Thorsten
Anzeige
AW: Progressbar schließen - Code beenden
17.04.2010 20:16:40
Lutz
Hallo Thorsten,
danke.
Dass ist genau dass, wass ich mit dem Schließen der Progressbar erreichen wollte.
M.f.G.
Lutz