Thema: Mehrere Shapes über eine Variable ansprechen

Einen schönen guten Morgen zusammen, ich bräuchte mal wieder eure Unterstützung...

In meiner Tabelle habe ich mir 3 Layer mit jeweils 10 Button (Shapes) erstellt, die auf Dateien verlinkt sind. Mit 3 weiteren Button kann ich immer jeweils eines der einzelnen 3 Layer einblenden, die anderen sind dann ausgeblendet. Nun meine Frage: ich möchte gerne die 10 Button eines Layers über eine Variable ansprechen können, damit nicht jedes mal die einzelnen Namen angegeben werden müssen (z.B. beim ein- und ausblenden). Geht das mit einem Array ? Ich habe das nicht hinbekommen, würde es mir aber so vorstellen:

Layer1 = ActiveSheet.Shapes.Range(Array("Button1", "Button2", "Button3", "Button4", _
"Button5", "Button6", "Button7", "Button8", "Button9", "Button10"))

Wie müsste die Variable "Layer1" dimensioniert werden ?

Besten Dank und viele Grüße
Stefan

Hallo Stefan,

Dim Layer1 As ShapeRange

Set Layer1 = ActiveSheet.Shapes.Range(Array("Button1", "Button2", "Button3", "Button4", "Button5", _

                                            "Button6", "Button7", "Button8", "Button9", "Button10"))

Gruß, Uwe

Guten Morgen Uwe, vielen herzlichen Dank,
so habe ich wieder etwas dazugelernt und es erleichtert mir meinen Code erheblich 😉

Viele Grüße
Stefan