Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
15.10.2025 13:24:59
Werte aller 4 Zeilen eintragen
15.10.2025 12:39:33
Summen zusammenzählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
864to868
864to868
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mehrere userforms mit einem befehl schließen

Forumthread: 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

Anzeige

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

Anzeige
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
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige