Clever-Excel-Forum

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?

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

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

VBATartar

Steffl

VBATartar