Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
864to868
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
864to868
864to868
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

mehrere userforms mit einem befehl schließen

mehrere userforms mit einem befehl schließen
26.04.2007 10:56:00
peter
hi leute,
gibt es eine möglichkeit, dass ich mehrere userforms mit einem befehl gleichzeitig schließen kann?
vielen dank im voraus!
lg peter

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere userforms mit einem befehl schließen
26.04.2007 11:09:00
IngGi
Hallo Peter,
mit einem Befehl nicht, aber in einer Schleife:

Dim i As Integer
For i = 0 To UserForms.Count - 1
UserForms(i).Unload
Next 'i

Gruß Ingolf

AW: mehrere userforms mit einem befehl schließen
26.04.2007 11:18:17
peter
hallo ingolf,
danke für deine antwort! ich bekomme da aber eine fehlermeldung. "objekt unterstützt diese methode oder eigenschaft nicht". woran kann denn das liegen?
vielen dank!
lg peter

AW: mehrere userforms mit einem befehl schließen
26.04.2007 14:38:56
Heiko
Hallo Peter,
dann so:

Sub AlleUFOsZu()
Dim lngI As Long
While UserForms.Count > 0
Unload UserForms(0)
lngI = lngI + 1
If lngI > 1000 Then Exit 

Sub  'Notausstieg falls sich mal irgendwas aufgehangen hat.
Wend
End Sub


Gruß Heiko
PS: Rückmeldung wäre nett !

Anzeige
AW: mehrere userforms mit einem befehl schließen
26.04.2007 15:50:04
peter
hi leute,
danke für eure tipps!
habe es bereits anders gelöst:
j = UserForms.Count-1
For i = 0 To j
Unload Userforms(j-i)
Next i
Da funktioniert auch!
Vielen Dank!
LG Peter

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige