Hallo,

ich versuche über ein Makro die Range einer Scroll Bar (Steuerelement) zu verändern, genauer gesagt den Max-Wert, der beeinflusst, wie weit das Steuerelement scrollen kann.

Mein VBA ist leider echt eingerostet und es hakt bei mir glaube ich mit den Zugriffsrechten.

Ich habe jetzt in ein Modul folgendes eingegeben:

Sub ScrollbarAnpassen(ByVal i As Long)

    Worksheets("Powder2").Shapes.Range(Array("Scroll Bar 1")).Max = i
       
End Sub

Es funktioniert aber nicht. Ich rufe dieses Sub aus einem Tabellenblatt auf (also im Editor auf dem Codeblatt der Tabelle)

Kann mir jemand helfen?