gibt es eine möglichkeit, dass ich mehrere userforms mit einem befehl gleichzeitig schließen kann?
vielen dank im voraus!
lg peter
Dim i As Integer
For i = 0 To UserForms.Count - 1
UserForms(i).Unload
Next 'i
Gruß Ingolf
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 !