wie kann ich festellen, wieviele Controls("Textbox") in einer Userform sind.
Viele Danke für Eure Hilfe.
Viele Grüße
Peter (hpo)
Private Sub Userform_Activate()
Dim c As Object, i As Integer
For Each c In Me.Controls
i = i - (TypeName(c) = "TextBox")
Next
MsgBox i
End Sub
Gruß
Dim crt As Control
Dim zähler As Long
For Each crt In Me.Controls
zähler = zähler - (TypeName(crt) = "TextBox")
Next
msgbox zähler
Gruß DanielFunction AnzChkTxT() As AnzControl Dim i As Integer For i = 0 To UserForm1.Controls.Count - 1 Select Case TypeMane(UserForm1.Controls(i)) Case "Checkbox": AnzChkTxT.checkbox = AnzChkTxT.checkbox + 1 Case "TextBox": AnzChkTxT.textbox = AnzChkTxT.textbox + 1 End Select Next i End FunctionViele Dank