Office: MsgBox anzeigen während das Makro läuft

Hallo zusammen,

ich habe ein Makro dessen Ausführung relativ lange dauert. Ich möchte während das Makro läuft eine MsgBox anzeigen die den Benutzer auffordert, zu warten. Die Meldung soll nicht in der Statusleiste angezeigt werden, sondern in einer MsgBox (oder sowas ähnlichem), was dem Benutzer sofort ins Auge springt.
Ist das möglich?

Viele Grüße, Simone

:)

 

Hallo Simone,

du kannst dafür ein UserForm(ular) verwenden, dass du mit
Code:

einblendest. Zum Ausblenden fügst du einfach einen CommandButton auf dem UserForm(ular) ein und hinterlegst den entsprechenden Code.

Gruß Ingolf

 

Hallo Ingolf,

das versteh ich irgendwie nicht, ich habe noch nie mit userforms gearbeitet. Mit welchem Code muss ich das Ding hinterlegen? und wie kann ich das machen?

 

Hallo Simone,

im VBA-Editor fügst du zunächst über Einfügen | UserForm ein neues Userform(ular) in die Datei ein. Zusammen mit dem neuen, leeren Userform(ular) erscheint eine Symbolleiste "Werkzeugsammlung". Auf dieser Symbolleiste gibt es allerlei Steuerelemente, die sich mit der Maus auf das Userform(ular) ziehen lassen. Du benötigst ein Bezeichnungsfeld und eine Befehlsschaltfläche. Zieh also beides auf das Userform(ular). Wenn du mit der Maus über ein Symbol fährst, bekommst du dessen Bezeichnung angezeigt! In das Bezeichnungsfeld kannst du einen Text eingeben, der dem Benutzer deines Makros später angezeigt wird, während dein Makro läuft. Die Befehlsschaltfläche brauchst du, um am Ende deines Makros das Userform(ular) per Mausklick auf eben diese Befehlsschaltfläche wieder ausblenden zu können.

Das Bezeichnungsfeld läßt sich mit der Maus vergrößern und auf dem Userformular positionieren. Im Eigenschaftenfenster (evtl. mit F4 einblenden) lassen sich auch Schriftart und -größe und noch manch anderes einstellen. Auch der Text der Befehlsschaltfläche läßt sich über das Eigenschaftsfenster (Eigenschaft "Caption") ändern.

Jetzt musst du noch der Befehlsschaltfläche den Code zum Ausblenden bzw. Entladen des Userform(ular)s hinterlegen. Dazu machst du einen Doppelklick auf die Befehlsschaltfläche. Dadurch kommst du in das Codemodul des Userform(ular)s. Hier musst du die bereits automatisch eingefügte Prozedur nur folgendermaßen ergänzen:
Code:

 

Ah ok, danke, ich hab jetzt eine Userform und die wird auch an der richtigen Stelle eingeblendet, allerdings steht da nix drin. Die Einträge werden erst dann sichtbar, wenn das Makro schon zuende ist. Ich habe aber den Aufruf der Userform ganz an den Anfang des Makros gestellt, noch vor
Code:

Hast Du ne Ahnung woran das liegen könnte?

Viele Grüße, Simone

 

Hallo Simone,

versuch mal folgende Ergänzung. Damit wartet das Makro noch eine Sekunde, um Excel Zeit zu geben, das Userformular vollständig anzuzeigen.
Code:

Gruß Ingolf

 

Prima, das klappt jetzt. Vielen Dank für Deine Hilfe *Smilie

Viele Grüße und noch einen schönen Tag,

Simone

 

hallo zusammen,

ich hätte da doch noch eine kleine Frage:

In meinem hier beschriebenen Makro gibt es eine for-Schleife, die einige Male ausgeführt wird.
Gibt es die Möglichkeit, in der Userform einen zähler einzublenden, sowas wie "Durchlauf Nummer x von 250 Durchläufen"? Das x ist in dem Fall der Schleifenzähler. Ich möchte damit dem Benutzer den Fortschritt anzeigen, den das Makro macht, damit er in etwa abschätzen kann wie lange es noch dauert.

Viele Grüße, Simone

 

Hallo Simone,

klar geht das. Folgende Codezeile kommt an den Anfang oder das Ende der For...Next-Schleife, ganz nach Geschmack:
Code:

UserForm1 ist dein Userformular, Label1 das Bezeichnungsfeld, wie in meiner Antwort #4 beschrieben und lngZaehler ist die Variable deiner For...Next-Schleife. Wenn auch die Anzahl der Schleifendurchläufe in einer Variablen steckt, muss das Ganze eben so aussehen:
Code:

wobei lngDurchlaeufe die Variable mit der Anzahl der Schleifendurchläufe ist.

Gruß Ingolf

 

hiho

ich würde mal deinen Code posten, den Progressbars werden nicht oft benötigt, zumeist leigt es daran das Unmengen von select und activate im Code sind. *Smilie

aber hier mal eine Demo, die mit der Progressbar erstellt worden ist
(zusätzliche Steuerelemente)

 

Moin zusammen.

Ich nutze auch gelegentlich solche "Bitte-Warten" Formulare, aber in wesentlich aufwändigerer und uneleganter Weise, wie ich eben festgestellt habe.

Daher zwei Fragen zu diesen Methoden:

-UserForm1.Show vbModeless:
bewirkt das vbmodeless, daß die Userformnur angezeigt wird, aber der eigentliche Code weiterläuft? Denn normalerweise wird dann doch gewartet bis die Userform wieder geschlossen wird.

Desweiteren nehme ich mal an, daß diese Userform dann am Ende der Warterei wieder zugemacht bzw entladen werden muß

-wenn ich aus der aufrufenden Prozedur heraus die Userform ändere, muß doch eigentlich noch repainted werden oder erübrigt sich das mit der vbmodeless-Variante?

Mfg Sturmovik

 

Hallo Sturmovik,

der Parameter vbModeless bewirkt in der Tat, dass das Makro während der Anzeige des Userformulares weiterläuft.

Das Userformular muss am Ende des Makros wieder zugemacht werden. Dazu kann man entweder einen CommandButton und eine zugeordnete Ereignisprozedur verwenden. Oder man integriert das Ausblenden/Entladen in das weiterlaufende Makro.

Ich nehme mal an, mit "repainted" meinst du, dass die abgeschaltete Bildschirmaktualisierung wieder eingeschaltet werden muss. Das habe ich in der Tat vergessen. Wenn man den Text im Label auf dem Userformular während des Makroablaufes ändern will, muss man natürlich die Bildschirmaktualisierung aktivieren. Allerdings läßt man sie dann sinnigerweise am Besten gleich ganz weg.

Gruß Ingolf

 

hiho

ja Code läuft weiter *Smilie

ja mit
unload Userform1

nicht unbedingt!

im Makro kann das Uf
mit Userform1.textbox1.text ="ccc"
z.b angesprochen werden.

in meiner Demo kannst Du ja den Code mal durchschauen da sind genau diese Dinge enthalten, nur habe ich direkt in den Eigenschaften der Userform vbModeless geändert!

 

Danke für die aufklärung, da kann ich das aktuelle Projekt gleich mal verschlanken


Mit dem repainten meinte ich Userform1.repaint
Bisher mußte ich das immer machen, wenn ich die Userform von woanders geändert hab. Vielleicht lags am Abschalten des Screenupdating, worauf ich aber in dem Fall aus Geschwindigkeitsgründen nicht verzichten kann

und die Methode "Unload Me" war mir auch noch nicht bekannt... aber das is ja egal wenn man den Namen der Userform kennt *wink.gif*

mfg Sturmovik

 

Hallo Sturmovik,

danke für die Rückmeldung! Die Methode Repaint kannte ich gar nicht.

Gruß Ingolf