Alle Controls im Tabellenblatt referenzieren
12.06.2013 15:32:42
NoNet
heute ist mir anscheinend echt zu heiß :-(
Kann mir jemand auf die Sprünge helfen, wie man alle Formular-Steuerelemente auf einem Tabellenblatt referenzieren kann ?
Auf einem UserForm ist das einfach :
For Each cnt In Me.Controls
MsgBox TypeName(cnt), , cnt.Name
Next
Die ActiveX-Steuerelemente auf einem Tabellenblatt kann man auch einfach referenzieren (mit der _ zusätzlichen Anweisung If TypeOF cnt is MSForms.CommandButton Then lassen sich z.B. alle CommandButtons ansteuern):
For Each cnt In ActiveSheet.OLEObjects
MsgBox cnt.Name
Next
Die Formular-Steuerelemente kann man aber offenbar nur über ihren konkreten Typ (Button, _ ListBox, Label etc.) ansteuern, oder (hier nur CommandButtons) ?
For Each cnt In ActiveSheet.Buttons
MsgBox cnt.Name
Next
'Das funktioniert leider nicht :
' For Each cnt In ActiveSheet.Controls
' MsgBox cnt.Name
' Next
Gibt es ein übergeordnetes Object (ähnlich wie OLEObjects), das die Formular-Steuerelemente zusammenfasst ?
Ich möchte NICHT Shapes, DrawingObjects oder ähnliches verwenden.
Die VBA-Objekt-Referenz schweigt sich hierüber leider aus :-(
Danke, Gruß NoNet
Anzeige