Loop while... Userform aktiv

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Loop while... Userform aktiv
von: DerBertige
Geschrieben am: 26.04.2005 13:58:00
Hi Leute,
hab zwar ne Weile in der Recherche gesucht, aber leider nichts gefunden...
wäre nett wenn ihr mir helfen könntet! Habe folgendes Problem:
Ich möchte, dass mein Makro so lange ausgeführt wird, wie eine bestimmte Userform geöffnet ist...
jemand ne Ahnung?!?
Ich hätte an sowas ähnliches gedacht wie:
Loop While ActiveSheet.Name = "Tabelle1"
nur eben aktive Userform nicht sheet...

Gruß Bert

Bild

Betrifft: AW: Loop while... Userform aktiv
von: Herbert
Geschrieben am: 26.04.2005 14:35:04
Hi,
wie denkst du denn, soll die userform geschlossen werden?
Die ganze Aktion ist sehr undurchsichtig, wozu solls dienen?
mfg Herbert
Bild

Betrifft: AW: Loop while... Userform aktiv
von: DerBertige
Geschrieben am: 26.04.2005 14:42:14
Hi Herbert
Nun ja, geschlossen nicht, aber verdeckt, mit dem Befehl... Userform1.hide
und dann wird eine andere Userform geöffnet... Userform2.show
wofürs gut sein soll: nix wichtiges, nur ne optische sache, ich will, dass eine animation läuft, nur wenn userform1 aktiv, also sichtbar ist. Und nich unnötig
Prozessleistung im hintergrund schluckt... oder so ähnlich?!? bin ich auf nem ganz falschen weg?!?
Gruß Bert
Bild

Betrifft: AW: Loop while... Userform aktiv
von: Herbert
Geschrieben am: 26.04.2005 14:45:00
"Nun ja, geschlossen nicht, aber verdeckt, mit dem Befehl... Userform1.hide"
Genau darum gehts, wie willst du das auslösen, wenn die Loop noch läuft?
mfg Herbert
Bild

Betrifft: AW: Loop while... Userform aktiv
von: DerBertige
Geschrieben am: 26.04.2005 14:53:47
hm... stimmt ja... ich hab da nen "Weiter" Button, mit dem die Userform geschlossen und die nächste geöffnet wird.. Kann ichs dann so schreiben, dass es so lange "macht" bis ich auf weiter klicke?!?
danke für die geduld, bert
Bild

Betrifft: AW: Loop while... Userform aktiv
von: Herbert
Geschrieben am: 26.04.2005 15:00:21
Public bolLoop as boolean

Sub makro()
userform1.show
bolLoop = true
do while bolLoop and userform1.visible
doevents
loop
End Sub

im Code des Weiter-Button: bolLoop = false
mfg Herbert
Bild

Betrifft: Danke, Danke!!! O.T.
von: DerBertige
Geschrieben am: 27.04.2005 13:05:38
Danke, jetzt gehts!! Genau was ich gesucht hab, danke!
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Loop while... Userform aktiv"