---

Hallo VBAler!

In meinem VBA-Programm verwende ich mehrere Userforms (insgesamt 4).
Gibt es die Möglichkeit, den Status jedes UserForm-Formulars abzufragen, ob es geöffnet oder geschlossen ist?
Schon mal Danke!

Viele Grüße Michel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Michel,

Reicht dir da schon die Eigenschaft "Visible" ob die Forms auf dem Bildschirm sichtbar sind?!

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hi,

eigenschaft .visible
gibt info, ob sichtbar

zweitens hast du wohl variable, die auf das/die geladene(n) form(s) hinzeigt, die kannst du mit 'xx_form is nothing' pruefen.

- alfred -

---

Hallo Carsten und Alfred!

Schon mal Danke für eure beiden Antworten!
Möchte durch die Abfrage erreichen, dass von allen geöffneten Userforms nur ein bestimmtes geöffnet bleibt und die anderen alle geschlossen werden.

Habe als Test zwei Versionen in VBA eingegeben:
1. If Userform4.Visible = True then Userform4.Hide
2. If Userform4 is Nothing = False then UserForm4.Hide

Beidesmal kommt die Fehlermeldung.
Run-time error '402'
Must close or hide topmost modal from first

Woran liegt das?

Michel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hi michael,

wenn forms modal geoeffnet werden, dann legen sie sich 'vor das aktuelle fenster' (welches auch immer das ist, das kann das autocad-fenster sein, oder, wenn du von userform1 aus ein userform2 modal startest, dann kann userform1 nicht verdeckt werden, weil es keinen focus haben kann.

BTW:
if (UserForm2 is nothing) then
reicht, da gehoert kein '= true' dahinter

- alfred -

---

Mit deiner Hilfe habe ich jetzt folgenden Code programmiert:

If UserForm4 Is Nothing Then
Else: UserForm4.Hide

Der Code funktioniert auch, aber geht es auch einfacher?
Brauche ja die 'Vereineinung von Is Nothing'(entspricht Userform4 ist geöffnet), die leider nicht 'Is Not Nothing' ist.

Michel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hi michael

if (not (UserForm4 is nothing)) then UserForm4.Hide

- alfred -

---

Super! Tausend Dank, Alfred, für deine Hilfe!

Viele Grüße Michel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP