Steuerelemente auf Userform selektiv zählen

[VBATartar]

Hallo liebes Forum,

mit der Funktion   Me.Controls.Count  kann ich die Anzahl der Steuerelemente auf einer Userform insgesamt zählen.
Wie aber zähle ich die Steuerelemente selektiv, damit ich weiß, wieviel CommandButtons, TextBoxen, ToggleButtons ich auf einer Userform habe?

[Steffl]

Hallo,

vielleicht so in der Art?

Code:

Private Sub CommandButton1_Click()
   Dim objControls As Object
   Dim lngControls(3) As Long
  
   For Each objControls In Me.Controls
      Select Case TypeName(objControls)
         Case "TextBox": lngControls(0) = lngControls(0) + 1
         Case "CheckBox": lngControls(1) = lngControls(1) + 1
         Case "CommandButton": lngControls(2) = lngControls(2) + 1
         Case "ListBox": lngControls(3) = lngControls(3) + 1
      End Select
   Next objControls
   MsgBox lngControls(0) & " Textbox" & vbCr & lngControls(1) & " Checkbox" & vbCr & lngControls(2) & " CommandButton" & vbCr & lngControls(3) & " Listbox"
End Sub

[VBATartar]

Hallo Stefan,
ich möchte mich ganz herzllich für deine Hilfe bedanken.