Excel VBA Listboxen abhängigkeit
10.06.2020 11:37:09
Heinz
ich möchte 3 Listboxen voneinander abhängig machen. Listbox 2 soll abhängig von Listbox 1 sein und Listbox 3 soll anhängig von Listbox 2 sein.
Dies habe ich wie folgt angegangen:
In Sheet 8 stehen in der ersten Zeile verschiedene Kategorien, welche ab Zeile 2 dann weiter verfeinert werden sollen.
(Bsp.: Mechanische Reparatur, Elektrische Reparatur, Büro etc. mit den unterpunkten Sicherheit, Steuerung, Sauberkeit etc)
In Sheet 9 sollen dann die Unterpunkte aus Sheet 8 (also Sicherheit, Steuerung, etc.) in Zeile 1 als quasi Überschrift stehen und dann nochmals unterteilt werden in weitere Unterpunkte, sodass man die genauen Ursachen für jede gewählte Kategorie genau angeben kann.
Bis jetzt habe ich es wie folgt umgesetzt:
Private Sub UserForm_Initialize()
For i = 1 To Sheets(8).Cells(1, Cells.Columns.Count).End(xlToLeft).Column
ListBox1.AddItem Sheets(8).Cells(1, i)
Next
End Sub
Private Sub ListBox1_Click()
ListBox2.Clear
For i = 2 To Sheets(8).Cells(Cells.Rows.Count, ListBox1.ListIndex + 1).End(xlUp).Row
ListBox2.AddItem Sheets(8).Cells(i, ListBox1.ListIndex + 1)
Next
End Sub
Private Sub ListBox2_Click()
ListBox3.Clear
For i = 2 To Sheets(9).Cells(Cells.Rows.Count, ListBox2.ListIndex + 1).End(xlUp).Row
ListBox3.AddItem Sheets(9).Cells(i, ListBox2.ListIndex + 1)
Next
End Sub
Es funktioniert auch soweit bis zu Listbox 2 - also die Abhängigkeit von Listbox2 zu 1 ist gegeben. Allerdings schaffe ich es einfach nicht Listbox 3 abhängig von 2 zu machen.
Mit wird, egal was ich in LS2 anklicke immer nur Sheet 9 spalte 1 angezeigt.
Wähle ich bspw. Kategorie mech. Reparatur in LS1 aus erscheinen in LS2 die richtigen Unterpunkte.
Wähle ich jedoch in LS1 die Kategorie Büro aus und in LS2 dann die dazugehörige Kategorie Sauberkeit erscheinen in LS3 die Ursachen die nur für mech. Reparaturen angezeigt werden sollen.
Ich hoffe mir kann jemand helfen, sitze schon seit 3h auf dem Schlauch und finde den Weg leider nicht mehr hinunter.
Gruß H.S.