19.12.2016, 23:56 (Dieser Beitrag wurde zuletzt bearbeitet: 19.12.2016, 23:56 von fredrre.)
Moin Leute,
ich bin gerade an einem größeren Projekt dran, welches mich dazu zwingt mich ein wenig in VBA reinzuarbeiten. Ein wenig Code für meine ActiveX Steuerelemente die ich verwende, konnte ich auch schon mit Recherche und Hilfe aus diesem Forum lösen.
Ich habe folgendes Problem:
Eine Scrollbar die ich verwende soll entsprechend dem Wert einer Zelle einen bestimmten Wert annehmen, der danach noch veränderbar ist.
Beispiel für den Code welchen ich benötige:
Ich habe in Zelle E1 "Hallo du" stehen. Wenn das der Zelle steht, dann soll der Wert der Scrollbar1 in dem vordefinierten Bereich (über Einstellungen der ActiveX Scrollbar eingestellt) von 1 bis 100 auf 50 eingestellt werden.
Wenn in der Zelle E1 "Hallo ihr" steht, dann soll der Wert auf 60 gesetzt werden.
Wenn nichts in der Zelle E1 steht, soll der Wert auf 75 stehen.
Wenn in Zelle F5 der Wert " Bye" steht, dann soll der Wert der Scrollbar1 auf 40 gesetzt werden. Wenn nichts in der Zelle E1 steht, soll der Wert auf 75 stehen.
Es ist wichtig, dass die Scrollbar1 nach setzen des Wertes weiterhin benutzbar ist, und der Wert der Scrollbar1 noch veränderbar ist.
Dann würde mich noch zusätzlich interessieren wie der Code aussehen müsste, wenn die Werte zur Einstellung in der Scrollbar aus einer bestimmten Zeile in einem anderen Sheet genommen werden.
Ich hoffe ich hab es gut erklärt und mir kann jemand helfen.
Code im schon vorhandenen VBA-Modul des entsprechenden Tabellenblattes:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$1" Or Target.Address = "$F$5" Then
If Range("F5").Value = "Bye" Then
ScrollBar1.Value = 40
Else
Select Case Range("E1").Value
Case "Hallo du"
ScrollBar1.Value = 50
Case "Hallo ihr"
ScrollBar1.Value = 60
Case ""
ScrollBar1.Value = 75
End Select
End If
End If
End Sub
Gruß Uwe
Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:1 Nutzer sagt Danke an Kuwer für diesen Beitrag 28 • fredrre
Code im schon vorhandenen VBA-Modul des entsprechenden Tabellenblattes:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$1" Or Target.Address = "$F$5" Then
If Range("F5").Value = "Bye" Then
ScrollBar1.Value = 40
Else
Select Case Range("E1").Value
Case "Hallo du"
ScrollBar1.Value = 50
Case "Hallo ihr"
ScrollBar1.Value = 60
Case ""
ScrollBar1.Value = 75
End Select
End If
End If
End Sub
Gruß Uwe
Hallo Kuwer,
danke dir soweit, jedoch komme ich da noch nicht weiter.
ich war ein wenig beschäftigt die Woche und konnte mich nicht um das Problem kümmern. Ich musste mein Tool aber nochmal anpassen und mal beispielhaft mein Problem nachgebaut (Anhang). Die Originaldatei darf ich leider nicht hochladen.
Ich habe den Code mal für meine Bedürfnisse umgebaut, jedoch läuft dadurch alles andere nicht mehr. Hab ihn mal ausgeklammert im Code
Wenn ich also bei "Auswahl nach Namen" den Button auf ja Setze, dann habe ich das Dropdown. Andersherum habe ich keines. Wenn es auf Nein gesetzt ist, muss in der Scrollbar ein bestimmter Wert stehen. Andersherum müssen entsprechend der Namen Werte in der Scrollbar eingestellt werden. Mich interessiert auch mal wie man das lösen könnte wenn man Werte aus einer bestimmten Zelle als Einstellung nimmt.
Darüberhinaus kriege ich es einfach nicht hin die Zeile 8 Auszublenden, wenn ich das Kästchen in B2 aktiviere.
Im Grunde muss ich zudem auch noch die zweite Scrollbar entsprechend der "Namen" zu den Kaufpreisen ändern ( in Tabellensheet 2).
Ich hoffe Ihr/ du kannst mir dabei helfen. Google ist mittlerweile auch nicht mehr mein Freund :D