01.03.2021, 14:07 (Dieser Beitrag wurde zuletzt bearbeitet: 01.03.2021, 21:48 von WillWissen.
Bearbeitungsgrund: Codetags
)
Hallo zusammen,
ich habe versucht für das nachfolgende Makro einen Fortschrittsbalken mit Prozentanzeige zu erstellen. Komme da aber nicht weiter und bitte um eure Unterstützung, da ich mich nicht besonders gut mit VBA auskenne. Auf verschiedenen Internetseiten habe ich gelesen, dass zunächst eine Userform erstellt werden muss, die dann dem Makro mit einem weiteren Code zugewiesen wird. Leider bin ich an dieser Stelle echt überfordert.
Ich würde mich sehr über Hilfe freuen.
Viele Grüße Gerhard
Code:
Sub Report_Aktualisierung() ' ' Report_Aktualisierung Makro ' Dim Antwort As VbMsgBoxResult Antwort = MsgBox("Soll die Aktualisierung ausgeführt werden? Bearbeitungszeit ca. 30 Sekunden", vbYesNo, "Aktualisierung-Reports")
falls es sich nach Optimierung Deines Codes für die dann verbleibende Bearbeitungszeit noch lohnt (Deine Entscheidung) eine Fortschrittsanzeige einzusetzen, hier mal eine Idee dazu.
Ggf. kommt die Sub "Beispiel_Fuer_Prozente" als Ansatz infrage.
01.03.2021, 15:10 (Dieser Beitrag wurde zuletzt bearbeitet: 01.03.2021, 21:47 von WillWissen.
Bearbeitungsgrund: Codetags
)
Hallo zusammen,
Vielen Dank erstmal für die Rückmeldungen. Nachfolgend habe ich den Code für "Mitgliederdatei.xlsm!Report_alle_Schützen" (eins von den 16 Makros) beigefügt. Die Makros wurden alle durch Aufzeichnung erstellt. Report-Aktualisierung ist ein Tabellenblatt der Mitgliederdatei. Die einzelnen Reports (insgesamt 16) können auch einzeln erzeugt werden (siehe Schaltflächenübersicht aus dem Tabellenblatt Report-Serienbriefe im Anhang). Das funktioniert alles sehr gut, nur habe ich mir gedacht, dass für die Anwender in unserem Verein eventuell eine Fortschrittsanzeige sinnvoll ist wenn die Aktualisierung aller 16 Reports gestartet wird. Ich hoffe, dass ich mir so halbwegs verständlich ausgedrückt habe.
VG Gerhard
Code:
Sub Report_alle_Schützen() ' ' Report_alle_Schützen Makro '
- aufgezeichnete Makros haben ein erhebliches Optimierungspotenziel. (Könnte sich auch auf die Laufzeit auswirken). - Fortschrittanzeigen bremsen die Laufzeit noch weiter aus. Insofern sollte man darauf verzichten und lieber den Quelltext optimieren.
Viele Grüße Klaus-Dieter Der Erfolg hat viele Väter, der Misserfolg ist ein Waisenkind Richard Cobden
zuweilen reicht als Alternative auch die Ausgabe einer Meldung, das noch ein Makro läuft.
Das könnte man als Userform oder Textbox umsetzen. Du könntest dort z.B. als erweiterte Variante eine Liste der Aufgaben anzeigen mit dem jeweiligen Abarbeitungsstatus. Oder Du nutzt dazu die Scripting-PopUps, die kannst Du zwischendurch immer mal kurz oder lang aufpoppen lassen.
Ansonsten, wie schon andere schrieben, macht das für eine kurze Dauer eher keinen Sinn. Da würde ich lediglich am Ende des Makros eine Fertigmeldung ausgeben.
. \\\|/// Hoffe, geholfen zu haben. ( ô ô ) Grüße, André aus G in T ooO-(_)-Ooo (Excel 97-2019+365)
Hallo zusammen, ich habe nun versucht, die Meldungen während und nach der Bearbeitung des Makros "Report-Aktualisierung" (siehe Anhang) mit 2 UserForms (siehe Anhang) umzusetzen. Nachfolgend der Ablauf (siehe Anhänge) beim Schließen der Mitgliederdatei und meinem noch bestehenden Problem: 1. Die Mitgliederdatei wird geschlossen 2. Frage: Soll die Aktualisierung ausgeführt werden ? Laufzeit ca. 30 Sekunden ! Ja oder Nein (siehe Anhang Aktualisierung_1) Bei Bestätigung mit Nein erscheint die Frage: Sollen die Änderungen an Mitgliederdatei.xlms gespeichert werden ? Das ist auch so ok. 3. Bei Bestätigung mit Ja wird die UserForm1 "Bitte warten ! Aktualisierung läuft ! (siehe Anhang Aktualisierung_2) gestartet bis das Makro abgearbeitet ist. 4. Danach wird die UserForm2 "Aktualisierung beendet !" (siehe Anhang Aktualisierung_3) gestartet. Diese Meldung soll dann mit Bestätigung OK geschlossen werden. Und hier ist mein Problem, weil auch direkt die Frage nach dem Speichern ernscheint. Die "Speicherfrage" sollte erst nach dem Bestätigung mit OK erscheinen. Ich habe diesbezüglich schon einiges ausprobiert, komme aber leider nicht weiter. Im Anhang habe ich auch noch den Code "UserForm2" und "Diese Arbeitsmappe" beigefügt. Für euere Unterstützung wäre ich sehr dankbar, denn mit dieser Problemlösung wäre alles aus meiner Sicht perfekt.
Fortschrittsbalken mit Prozentanzeige für Excel-Makro
