Herbers Excel-Forum - das Archiv

Bewerten Sie hier bitte das Excel-Portal

Eigenschaften für alle User-Forms festlegen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ UserForm
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
Excel-Beispiele zum Thema " Eigenschaften für alle User-Forms festlegen"
Auslesen der Arbeitsmappeneigenschaften Ordnereigenschaften auslesen
Zeilenhöhe in cm festlegen Zellinnenfarben über VBA festlegen
Schriftart und -größe eines Kommentars festlegen Position der Symbolleiste festlegen
Datenbank für Datenmaske festlegen VBE-Namen der Blattmodule beim Kopieren festlegen
Zellinhalt und Kommentar nach Eingabe festlegen Hintergrundfarbe nach Datum festlegen