Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Scrollbar durch VBA auf bestimmten Wert ziehen
#1
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


Angehängte Dateien Thumbnail(s)
   
Antworten Top
#2
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
Der Künstler lebt auch vom Applaus
Excel Optimaler Zuschnitt von Stangen/Balken - YouTube
Antworten Top
#3
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
Antworten Top
#4
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
Der Künstler lebt auch vom Applaus
Excel Optimaler Zuschnitt von Stangen/Balken - YouTube
Antworten Top
#5
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)
Herzliche Grüße aus dem Rheinland
Jörg

[Windows 10, Microsoft 365]
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste