Hallo,
ich bin auf der Suche nach einer Funktion, mit der ich eine Listbox mit Werten von mehreren Bereichen füllen kann.
In meinem aufgeführten Beispiel möchte ich also, dass je nachdem welches Element aus der Combobox ausgewählt wurde, die Listbox gefüllt wird mit einem oder mehreren Bereichen (KomponenteX) aus meinem Tabellenblatt 1.
Mit der Suchfunktion hab ich leider nichts finden können und google hat mir auch noch nich weitergeholfen.
Ich hoffe, ihr könnt mir weiterhelfen.
Gruß
schnibby
Private Sub Combobox1_Click()
Select Case Combobox1.Value
Case "all"
Me.Listbox1.List = Sheets("Tabelle1").Range("E2:E64").Value
Case "Komponente1"
Me.Listbox1.List = Sheets("Tabelle1").Range("E2:E8").Value
Case "Komponente2"
Me.Listbox1.List = Sheets("Tabelle1").Range("E9:E14").Value
Case "Komponente3"
Me.Listbox1.List = Sheets("Tabelle1").Range("E15:E18").Value
Case "KomponenteX"
Me.Listbox1.List = Sheets("Tabelle1").Range("E9:E9,E12:E13,E15:E23").Value
End Select
End Sub
|