Scrollbar durch VBA auf bestimmten Wert ziehen

[SMNS_1510]

Hallo zusammen,

gibt es die Möglichkeit, durch einen Code in VBA die ScrollBar automatisch auf einen bestimmten Wert zu ziehen?

Wie im angehängten Bild möchte ich z.B. durch einen Klick auf den Button A, dass der Slider automatisch auf bspw. Porsche gezogen wird (bei B auf Renault u.ä.)

Vielen Dank schon mal für Eure Hilfe.

Viele Grüße
Mark

[Guschti]

Hallo Mark

Und wann gibst du ein Feedback auf diese Antworten?
https://www.clever-excel-forum.de/index.php

Und wenn du diese Antworten liest, bekommst du selbst das Resultat das du hier wünscht.

Gruss Guschti

[SMNS_1510]

Hallo Guschti,

ein Feedback auf welche Antworten meinst du?
Das verstehe ich nicht.

Meine Frage ist doch, ob ich durch ein Makro (Klick auf Button) automatisch den Slider auf bspw. Porsche setzen kann.

Gruß
Markus

[Guschti]

Hallo Markus

Sorry, diese
https://www.clever-excel-forum.de/Thread...#pid163813

Du hast nicht geantwortet, ob du es auch verstanden hast.

Gib der Schaltfläche den gewünschten Wert an

Code:

Private Sub CommandButton1_Click()
    Tabelle1.scollbar1.Value = 2
End Sub

Gruss Guschti

[LuckyJoe]

Hi Marc,

das mal als Denkansatz:

Code:

Private Sub CommandButton1_Click()
   Call ScrollbarPositionieren("A")
End Sub

Private Sub CommandButton2_Click()
   Call ScrollbarPositionieren("B")
End Sub

Private Sub CommandButton3_Click()
   Call ScrollbarPositionieren("B")
End Sub

Sub ScrollbarPositionieren(WelcherButton As String)

   Select Case WelcherButton
       Case "A"
           ScrollBar1.Value = 2
       Case "B"
           ScrollBar1.Value = 4
       Case "C"
           ScrollBar1.Value = 7
   End Select
   
End Sub

Setzte den Scrollbalken so, dass er links und rechts mit den Fahrzeug-Zellen darunter abschließt. In den Eigenschaften gibst du ein:

Min = 1
Max = 8 (Anzahl der Fabrikate)