Office: MsgBox während Makro läuft

Guten Morgen,

und zwar habe ich ein umfangreicheres Makro, welches verschiedene Vergleichsoperationen sowie den Aufbau eines TreeViews enthält. Da dies doch eine längere Zeit in Anspruch nimmt, würde ich gerne während der "Wartezeit" eine Message Box einblenden lassen mit z.B. "Bitte Warten".

Die Beispiele, die ich hierzu im Netz gefunden habe, beziehen sich alle auf einfaches Einfügen von Werten, sodass eine Zählschleife dort ausreichend ist. Meine Datengrundlage ist da doch etwas komplexer.

Kann mir da jemand helfen?

Vielen Dank für Eure Hilfe.*Smilie

Gruß
Mexcel

:)

 

eine MsgBox hält das Makro an, benutze eine UserForm.

 

Danke Hajo für die schnelle Antwort. Bin gerade leider nicht am Rechner.
Würde es so in etwa aussehen?


Private Sub CommandButton_Click()

UserForm1.Show

....Code, der mit der UserForm1 "überbrückt" werden soll....

Unload UserForm1

End Sub



Oder hab ich es mir da zu einfach gemacht?^^

Gruß,
Mexcel

 

ja genauso
oder aufwendiger
Fortschrittsanzeige

 

Hallo Mexcel,

was auch geht, ist mit der Statusbar zu arbeiten, man muss zwar genau hinsehen, aber es informiert einen auch um zu sehen wie weit das Makro ist ...



Application.DisplayStatusBar = True
Application.StatusBar = "Makro läuft!"
'...
Application.StatusBar = "... macht jetzt dies ()"
'...
Application.StatusBar = "... macht jetzt das ..."
'...
Application.StatusBar = "fertig ;-)"
Application.DisplayStatusBar = False

 

Hab es mal ausprobiert. Geht leider nicht.

Ich muss erst UserForm1 beenden damit die restliche (Berechnungs-) Prozess startet. Wo liegt da der Fehler?

 

es ist immer Klasse wenn man die Person anspricht, der man was mittteilen will. Das ist eben der entscheidende Vorteil, wenn eine Name unter dem Beitrag steht, man hat eine Namen zum ansprechen.
Da nun unklar ist wen Du meinst.
Kann man nur allgemein schreiben nur wenige sehe Deine Datei.

 

Sorry, hab den Beitrag von Uwe nicht gesehen.

Ich meinte den ersten Beitrag von dir, Hajo.

Gruß,
Mexcel

 

im ersten Beitrag von mir steht nur das Msgbox das Makro anhält.
Ich sehe es also richtig Du liest meine Beiträge nicht komplett (#7).
Ich bin dann raus.

 

Okay, den zweiten.

Hab mich verschrieben.

Also, dass man einfach

UserForm1.Show

und

Unload UserForm1

in den Sub schreibt.

Dies funktioniert leider nicht.

 

Hallo Mexcel,

wenn das mit der Statuszeile nicht ausreicht hab' ich ansonsten auch schon mal mit Popups gearbeitet, die automatisch wieder verschwinden:




Dim WshShell As Object



Set wshshell = CreateObject("Wscript.shell")

wshshell.popup "Fenster verschwindet nach 1 Sekunde wieder !", 1, "...Status-Info...(Titel)" '...

'...

Set wshshell = Nothing

 

Moin
Stell in der Eigenschaft: ShowModal auf False
gruss hary

 

\@Uwe:
Die Statusleiste ist bei mir nicht mehr sichtbar, da die Arbeitsmappe ausgeblendet wird und nur eine UserForm geöffnet ist. Für Popups reichen meine Kenntnisse leider nicht aus.

@Hary:
Wenn ich die Eigenschaft ShowModal der UserForm1 auf False setze wird mir folgender Fehler angezeigt:
"Ungebundenes Formular kann nicht angezeigt werden, während gebundenes Formular angezeigt wird"

Gruß,
Mexcel

 

Hallo Mexcel,

wenn du bereits ein Benutzerformular geöffnet hast, brauchst du ja nur eine Textbox mit einer entsprechenden Nachricht dort einfügen. Ein weiteres Benutzerformular ist überflüssig. Mach die Textbox standardmäßig unsichtbar und blende sie dann nach Bedarf ein/aus.

Gruß Ingolf

 

Danke Ingolf für den Tipp *Smilie

Hab da aber noch ein Problem mit dem Einblenden und Ausblenden.

Ich habe die Eigenschaft Visible von TextBox1 auf False gesetzt.
Jetzt würde ich die TextBox1 mit dem unteren Sub beim klicken einblenden und wenn der Code durchlaufen wurde wieder ausblenden.

Private Sub CommandButton_Click()

TextBox1.Visible = True

....Code...

TextBox1.Visible = False

End Sub


Es wird die Textbox aber leider nicht vor dem Code-Durchlauf sichtbar, sondern erst danach (und logischerweise dann auch wieder direkt unsichtbar).

Wo liegt da noch der Fehler?

Gruß
Mexcel