Auswahl aus ComboBox in ListBox übertragen
12.04.2016 14:16:54
Jones
ich bräuchte ein wenig Hilfe in Sachen VBA.
In meinem Excel Dokument habe ich ein Formular erstellt, bei dem man anhand einer
Combobox Werte auswählen kann, die darauf in einer ListBox erscheinen sollen.
Mein Problem ist nun, dass egal welchen Wert ich in der Combobox anklicke, sich der Inhalt der ListBox nicht anpasst.
s. Screenshots :
I. https://www.herber.de/bbs/user/104915.jpg
II. https://www.herber.de/bbs/user/104916.jpg
III. https://www.herber.de/bbs/user/104917.jpg
Sprich wenn "Ordnerstruktur" ausgewählt wird, soll "B1:B7" erscheinen, wie auch zu sehen ist. bei "OBK's" die Zeilen "C1:C2" und bei "Applikationen" die Zeilen "D1:D2".
Das ist mein unvollständiger Lösungsansatz:
Private Sub UserForm_Initialize()
Dim Quelle
Dim WS As Worksheet
Set WS = Worksheets("Werte")
Quelle = WS.Range("A1:A3")
ComboBox1.List = Quelle
End Sub
Private Sub ComboBox1_Change()
ListBox1.RowSource = "Werte!" & Range("B1:B7" & lngLetzte).Address
ListBox1.ColumnCount = 1
End Sub
MfG
Anzeige
