Herbers Excel-Forum - das Archiv

Steuerelementaray

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Steuerelementaray
von: Horst

Geschrieben am: 04.04.2005 07:49:11
Hallo,
gibt es in VBA nicht die Möglichkeit mit Steuerelementaray zu arbeiten?
Unter VB erhalte ich z.B. bei Buttons die Eigenschaft Index.
Unter Excel VBA gibt es z.B. bei Buttons die Eigenschaft Index nicht.
Vielen Dank im Voraus
Horst
Bild

Betrifft: AW: Steuerelementaray
von: Heiko S.

Geschrieben am: 04.04.2005 08:23:17
Hallo Horst,
Index auf Umwegen.
Für Steuerelemente auf Userforms:
Private Sub CommandButton3_Click()
Dim Intindex As Integer
For Intindex = 1 To 5
Me.Controls("OptionButton" & CStr(Intindex)).Value = False
Next
End Sub

Private Sub CommandButton4_Click()
Dim tb As Object
For Each tb In Frame2.Controls
If TypeName(tb) = "CheckBox" Then tb = False
Next tb
End Sub


Für Steuerelemente in Tabellenblättern:
Private Sub CommandButton7_Click()
Dim I As Integer
For I = 1 To 4
ActiveSheet.OLEObjects("CheckBox" & CStr(I)).Object.Value = False
Next I
End Sub

Gruß Heiko

PS: Rückmeldung wäre nett !
Bild

Betrifft: AW: Steuerelementaray
von: Horst

Geschrieben am: 04.04.2005 08:41:02
Hallo Heiko,
vielen Dank, ich denke so wie Du es beschrieben hast müsste es gehen.
Was mich wundert ist dass es hier anscheinend einen Unterschied zwischen VBA
und VB6 gibt. Dies bedeutet für mich, dass ich den Code nicht 1:1 übernehmen kann.
Eigentlich hatte ich die Hoffnung, dass es da einen Schalter gibt, welchen ich umlegen kann und womit ich den Index angeboten bekomme.
Viele Grüße
Horst
 Bild