Office: Steuerelement "indirekt" steuern mit DoLoop und Va

Hallo!

Habe mehrere Dropdowns(ActiveX) mit gleichem Präfix (StandortA, StandortB, usw...)

Diese möchte ich in VBA nicht alle einzeln auflisten, sondern mit einer Art "Indirekt"-Formel und Do Loop ansprechen.

Sieht dann vereinfacht so aus:

So. Das mit Enabled frisst er, aber das mit der BackColor des DropDowns, da meckert VBA Objekt unterstützt diese Eigenschaft oder Methode nicht.

Ich hab auch schon Varianten

.Shapes("Standort" & strVar).FillFormat.BackColor = strColor
.Shapes("Standort" & strVar).ControlFormat.BackColor = strColor

getestet. Klappt auch nicht

Hat jemand eine Idee? Wäre super, denn dann könnte ich einen ewig langen Code durch diesen Loop umgehen.

Danke! P.

 

Hi,

versuche es mal auf diese Weise:

Code:

Sub Test()
    Dim strVar As String
    Dim lngColor As Long
    strVar = "A"
    lngColor = 65535
    With Sheets("Tabelle1").Shapes("Standort" & strVar)
        .DrawingObject.Object.BackColor = 65535
        .ControlFormat.Enabled = False
    End With
End Sub

Bis später,
Karin