Herbers Excel-Forum - das Archiv
Eigenschaften für alle User-Forms festlegen
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
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
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
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
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