Office: Meldung während Schleife läuft anzeigen

Hallo,

Ich hab nen VBA Code mit ner Schleife, jetzt hätte ich gern, dass während die Schleife läuft ein Fenster/Meldung angezeigt wird.

Ich habs grad mit ner Form versucht, die ich vor der Schleife mit show sichtbar mach, aber dann hält ja der code an. Ne MsgBox geht ja net wirklich oder, da man die nur aufpoppen lassen kann. Dass Fenster soll aber genau so lange sichtbar sein wie meine Schleife läuft.

Jemand ne Idee?

Danke und Gru0 Florian

:)

 

Hallo,

schau dir doch mal diese Beispiele an:

http://www.************************273791.php#273791

 

Hallo Florian,

falls es nicht unbedingt eine Msgbox/Formular sein muss, bietet sich noch die fortlaufende Anzeige (z.B. welcher Schleifenzähler) in der Statusleiste von Excel an.

Hier ein Beispiel:

Code:

PS: Statusleiste muss natürlich aktiviert sein

 

Hey

Danke für eure schnelle Antwort.
@ Woody, sollte glaub schon n Fenster sein damit es auffälliger ist, aber nu weiß ich auch wie das geht. *g*
@ fridgenep, schöne Beispiele hab ich mir gleich mal in meinen Excel-brauchbares-Ordner kopiert. Aber das sind doch jetzt auch Forms die geladen werden. Warum geht da der Code weiter und bei mir net?

Es muss kein Status anzeigen, da ich net weiß wie lange die Schleife läuft, da sie so lange läuft wie eine DB-Abfrage arbeitet.

Danke und Gruß Florian

 

Hallo Florian,

der Link geht leider nicht und ich finde diese Beispiele nicht mehr!
Könntest Du sie evtl. hier hochladen, oder einen Link posten?

Danke

Gruß

LL

 

Hey,

ich glaub das müssten die angehängten Bespiele gewesen sein.

Ich hoffe ich konnte helfen.

Gruß Flo

 

Danke! *wink.gif*

Gruß

LL

 

hallöchen!

Also die Idee mit Application.StatusBar = "Berechnung läuft" finde ich schon echt super, allerdings zu unscheinbar/dezent! Ich möchte daher gerne eine Meldung, wie ein Label "aufpoppen" lassen. Ich habe einiges dazu gefunden, aber es wird nix *frown.gif*
Teilw. erscheinen mir die Lösungen für soetwas einfaches zu aufwendig....

Wenn ich das
Code:

in den Code mit einfüge, kommt das Label und das Makro "bleibt stehen". Wo ist mein Denkfehler??

 

Hallöchen zurück!

probier mal:
Code:

Grüße
EarlFred

 

UsferForm bei Makro

 

Vielen Dank EarlFred *dance

Genau was ich brauche! Habe es mittels Call in meine Kopier-Prozedur eingebaut (+ "DoEvents")....
Allerdings habe ich ShowModal auf false in den Formeigenschaften gesetzt. Ist ja quasi das gleiche....

Jetzt würde mich interessieren, was ShowModal denn eigentlich bedeutet?

dankö!

 

Hallo

Hilfe zur selbsthilfe ;-)
Nimm eine leere Mappe baue ein UserForm ein. Dann unter Eigenschaft des UserForm unter ShowModal mal auf True und einmal auf False setzen.
Versuch, bei angezeigtem UserForm, auf dem Tabellenblatt etwas einzutragen.
gruss hary

 

danke harry *wink.gif*



Jetzt möchte ich während meine Kopier-Schleife durchlaufen wird,
das Meldungsfenster den Fortschritt anzeugt.

Code:

Da ändert sich aber nichts (mit Application.StatusBar = testname) funktioniert das....

 

Hallo Name?

welche Änderung erwartest Du denn, wenn Du - nach allem, was der spärliche Einblick in Deinen Code sehen lässt - immer wieder das gleiche zuweist?

DoEvents wird benötigt, da sich die Userform sonst nicht aktualisiert:
Code:

[Ergänzung]
Die Userform könnte man beim Setzen von vbModeless durch Klick auf das rote Kreuz schließen, während der Code noch weiterarbeitet. Vermeiden lässt sich das z. B. so:
Code:

Code gehört ins Klassenmodul der Userform.
[/Ergänzung]

Grüße
EarlFred

 

ergänzung: testname ist schon dynamisch, denn in der schleife steht noch ein Code:

danke dir *wink.gif* macht was ich will, jedoch gibt es nach jedem
schleifendurchlauf eine unschöne "Gedenksekunde" .