Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

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