Office: MsgBox-ähnliches Gebilde mit Fortschrittsbalken per VBA

Hallo, allerseits!

Falls diese Frage in einen anderen Bereich gehört, bitte Bescheid sagen, aber direkt zu VBA habe ich nichts gefunden und ich brauch's in der Tat für Excel... ;-)

Ich klöter hier in etlichen Auswertungen immer wieder elend lange Listen (ca. 15 bis 35 tausend Zeilen) per VBA durch, vergleiche sie mit anderen, durchaus ebenso langen Listen, kopiere hin und her, berechne, ...

Einige dieser Aktionen dauern schon relativ lange (so im Bereich 5 bis 10 Minuten), ganz wenige sogar noch länger (1 Stunde). :-(

Um dem Anwender zu zeigen, daß noch etwas passiert, mache ich das, was eigentlich die Performance der Abarbeitung noch weiter drückt: Ich aktiviere jeweils das Blatt / die Zelle, in der sich was tut. So sieht der Anwender wenigstens nicht nur eine blöde Sanduhr, sondern herrlich scrollende Bildschirme. Tatsache, war so gewünscht! (Die meisten Anwender drückten nach spätestens 2 Minuten die ESC-Taste, weil sie dachten, der Rechner hat sich aufgehangen.)

Nun würde ich das gerne ablösen durch einen kleinen, handlichen Fortschrittsbalken, der im Vordergrund erscheint, nicht zu klein, aber hübsch bunt ist, vielleicht sogar eine lustige kleine Animation bietet, ... ;-)

Ne, im Ernst, wie auch immer... Welche Möglichkeit habe ich da, mit "Bordmitteln" aus Excel 2000, ohne Installation von fremden Add-Ins aber mit völig freier Kreativität in VBA, was hinzukriegen?

Ich dachte an sowas wie "BalkenStart(meldung,start,ende)", "BalkenText(meldung)", "BalkenPosition(aktuell)" und "BalkenStop", die ich dann an entsprechender Stelle im Source der Berechnungen aufrufen könnte. Wichtig wäre, daß es ein gebundenes Popup ist, das auch nicht zu klein ist. Also der Statusbalken links unten im Excel bitte nicht... ;-) Außerdem sollte das Popup auch die Möglichkeit haben, einen Text darzustellen, der sich auch ggf. während der Abarbeitung ändern können sollte. Ein "Abbrechen"-Button wäre auch nicht schlecht.

Wäre echt klasse, wenn mir hier jemand einen Schubs in die richtige Richtung geben könnte.

Gruß, Michael

 

Hallo,

am einfachsten und wenig geschwindigkeitshemmend ist es, eine Formel dieser Art

Application.StatusBar = "Bearbeitete Datensätze = " & x & " von " & xend & " / Startzeit: " & now

in die Bearbeitungsschleife einzubauen. So wird in der Statuszeile der Fortschritt sichtbar.

 

john g.:
> Application.StatusBar = "Bearbeitete Datensätze = " & x & " von " & xend & " / Startzeit: " & now

Ne, bitte nicht das Ding da unten. Das sieht keiner bzw. achtet darauf. Alles schon probiert.

Die Leute sehen ein Excel-Blatt, auf dem sich nichts rührt und dazu eine Sanduhr als Cursor. Die gucken nicht erst lange in alle Ecken, um in 0,5 cm hoher Schrift irgendein Hinweis zu finden. Die Drücken einfach ESC...

Gruß, Michael

 

Na dann beim Makrostart eine Box in etwa so

MsgBox ("Der Bearbeitungsstand wird links unten angezeigt!" & Chr(13) & Chr(13) & "Die Bearbeitung kann mehrer Minuten dauern." & Chr(13) & Chr(13) & "Vorzeitiger Abbruch der Prüfung mit ´ESC´.")

einbauen. Das sieht jeder!

 

Hallo!

Du kannst auch eine UserFrom mit einem Fortschrittbalken anzeigen lassen.
Die ProgressBar findest du in den "weiteren Steuerelementen".
Hier ein Beispiel mit einem Dummy-Makro.

 

schatzi:
> Du kannst auch eine UserFrom mit einem Fortschrittbalken anzeigen lassen.

Örks... Danke! Das war der entscheidende Hinweis! Und ich Dämel hab mich schon an irgendwelche System-DLLs ranmachen wollen, um dort Standard-Dialoge zu suchen.

An die User-Formulare hab ich ja nun überhaupt gar absolut nicht gedacht. Danke!

Gruß, Michael