Steuerelemente auf Userform selektiv zählen
#1
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?
Antwortento top
#2
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
Gruß Stefan
Win 7 / Office 2007
Antwortento top
#3
Hallo Stefan,
ich möchte mich ganz herzllich für deine Hilfe bedanken.
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste