Steuerelement Scrollbar mit VBA ändern (Max-Wert)?
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?
1 Antwort
Hallo,
ich denke, dass die Eigenschaft "Max" für die Methode "Shapes.Range()" nicht existiert. So zeigt es mir Exel wenigstens an. Die Methode "Select" statt dieser Eigenschaft läuft problemlos. Woher hast du das "Max"?
Hallo Robsl,
danke für die Hilfe, du hast Recht! Hatte da einen Denkfehler gemacht, indem ich das Selektieren wegkürzen wollte, und direkt die Shapeeigenschaften ansprechen wollte. Gibt aber tatsächlich keine Max-Eigentschaft für Shapes.Range().
Hab es jetzt so gelöst und es läuft gut!
Worksheets("Powder2").Shapes.Range(Array("Scroll Bar 1")).Select
With Selection
.Max = zeile
End With
Danke Dir!!