Hinweis-Box

[heli]

Hallo liebes Forum,

hat jemand eine Idee wie ich das bewerkstelligen könnte:
Während einer länger andauernden Rechenprozedur möchte ich dem Bedienenden in einer Box mitteilen, dass er sich gedulden muss.
Mit eine MsgBox  funktioniert es leider nicht, da das OK angeklickt werden muss, und dann ist die MsgBox wieder geschlossen.
Natürlich soll im Hintergrund der Rechenvorgang fortgeführt werden.
Gibt es dafür eine Lösung ?

Vielen Dank für Eure Hilfe.

Liebe Grüße aus Innsbruck
Helmut

[atilla]

Hallo Helmut,

das ginge mit einer Userform und einem Label.

Einfach zu Beginn Deines Codes:

Userorm1.show
Doevents

vor End Sub
Unload Useform1

[Fennek]

Hallo,

falls eine längere Schleife läuft, kann man die user über den Fortschritt informieren mit

Code:

for i = 1 to 1000
    application.statusbar = i
next i

dann wird i am linken unteren Ende im Rahmen angezeigt.

mfg

[heli]

Hallo Atilla, hallo Fennek,

vielen Dank für Eure Hilfe.

Liebe Grüße
Helmut

[heli]

Hallo Atilla,

es tut mir leid, aber das mit der UserForm1 funktioniert nicht, da mit Aufscheinen der UserForm der Rechenprozess untzerbrochen wird und erst fortgesetzt wird, wenn die UserForm geschlossen wird.

Was habe ich falsch gemacht ?

Liebe Grüße
Helmut

[atilla]

Hallo Helmut,

wahrscheinlich hast Du nichts falsch gemacht, aber ich.

Die Userform Show Eigenschaft muss "False" sein.
Das kannst Du im Eigenschaftsfenster der Userform fest einstellen, oder aber beim Aufruf mitgeben.

Nach folgendem Prinzip klappt es:

Code:

Sub test()

 UserForm1.Show False
 DoEvents
 
 '...Dein Code
 
 Unload UserForm1
 
End Sub

[heli]

Hallo Atilla,

Vielen Dank für Deine Hilfe, jetzt klappt es.

Liebe Grüße
Helmut