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

Beiträge aus den Excel-Beispielen zum Thema "Zugriff "