Eigenschaften für alle User-Forms festlegen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Eigenschaften für alle User-Forms festlegen
von: Klaus
Geschrieben am: 01.12.2003 17:46:20

Hallo, ich möchte User-Forms Eigenschaften für alle User-Forms im Workbook festlegen. Ist sowas möglich

meine Code-Idee:
i = 1
For Each UserForm In ???
UserForm(i).Hide
i = i+1
Next UserForm

Bei For Each UserForm In active.Workbook
gibt es einen Laufzeitfehler 424
Was muß anstelle der ??? stehen?

Danke
Klaus

Bild


Betrifft: AW: Eigenschaften für alle User-Forms festlegen
von: Nepumuk
Geschrieben am: 01.12.2003 18:28:38

Hallo Klaus,
die einzige Möglichkeit die Userforms so anzusprechen ist diese:

Option Explicit
Public Sub test1()
    Load UserForm1
    Load UserForm2
    Load UserForm3
    test2
End Sub
Private Sub test2()
    Dim intIndex As Integer
    For intIndex = 1 To UserForms.Count
        UserForms.Item(intIndex - 1).Hide
    Next
End Sub


Code eingefügt mit: Excel Code Jeanie

Es funktioniert nur mit geladenen Userforms. Aber Achtung, das laden einer Userform löst das Initialize - Ereignis in der betreffenden Userform aus.
Gruß
Nepumuk


Bild


Betrifft: @Nepomuk
von: Michael Scheffler
Geschrieben am: 01.12.2003 18:43:44

Hallo Nepomuk,

Klaus beschäftigt mit "Excel-Profi und VBA-gut" ganze Völkerstämme, gibt leider nie eine Rückmeldung und stellt Fragen x-mal.

Eigentlich sollte er sich bei diesem Level auch diese Frage selbst beantworten könne.

Gruß

Micha


Bild


Betrifft: AW: @Nepomuk
von: Nepumuk
Geschrieben am: 01.12.2003 18:46:54

Hallo Micha,
ich hab nicht drauf geachtet und die Frage war an sich interessant.
Gruß
Nepumuk


Bild

Beiträge aus den Excel-Beispielen zum Thema " Eigenschaften für alle User-Forms festlegen"