gibt es eine Möglichkeit um die Anzahl der in einer Userform definierten Controls zu bestimmen,
OHNE daß die
Private Sub UserForm_Initialize()-Prozdure abgearbeitet wird?
Wenn ich das so mache, wird sie durchlaufen, und es kommt schon zu einem Fehler,
weil die Variablen AnzCombobox etc. ja noch nicht fststehen, aber in der Initialize-Procedure benötigt werden.
Sub Objektanzahlen_ermitteln(UF As UserForm)
'Anzahl der Objekte ermitteln
Dim c As Control
Dim AnzTxB As Integer
Dim AnzCoB As Integer
Dim AnzCkB As Integer
Dim AnzOpt As Integer
Dim AnzLbl As Integer
For Each c In UF.Controls
Select Case TypeName(c)
Case "ComboBox"
AnzCoB = AnzCoB + 1
Case "CheckBox"
AnzCkB = AnzCkB + 1
Case "OptionButton"
AnzOpt = AnzOpt + 1
Case "TextBox"
AnzTxB = AnzTxB + 1
Case "Label"
AnzLbl = AnzLbl + 1
End Select
Next
AnzCombobox = AnzCoB
AnzCheckBox = AnzCkB
AnzOptionButton = AnzOpt
AnzTextBox = AnzTxB
AnzLabel = AnzLbl
End Sub
Gruß Jens