Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Loop while... Userform aktiv"
Diagramm in Userform XL-Dateien in UserForm listen
UserForm an Excel-Fenster anpassen Fundstellen in UserForm listen
Module und UserForms austauschen In einer Schleife auf Elemente einer UserForm zugreifen
Werte in eine ComboBox einer UserForm übernehmen Zellinhalt als Label-Aufschrift in UserForm
Alle CheckBoxes einer UserForm ansprechen Wenn kein Eintrag, UserForm nicht schließen