Liebe Community,
Leider habe ich mit meinem Makro noch ein zweites Problem. Ich möchte die Einträge einer Listbox über eine Combobox filtern können. Sprich, die Combobox liest alle Kategorien aus (und ignoriert alle doppelten Einträge usw.). Durch Klick auf eine Kategorie in der Combobox soll die Listbox nach dem ausgewählten Begriff gefiltert werden. Die Exceltabellen dienen lediglich als Datenbank. Der Nutzer soll lediglich mit der Userform arbeiten.
Wenn ich einen Eintrag in der Combobox auswähle, dann wird zwar die Tabelle gefiltert, aber nicht die Listbox aktualisiert.
Die Combobox wird wie folgt befüllt:
Sub UserForm_Initialize()
Dim objDic As Object
Dim lngZ As Long
Set objDic = CreateObject("Scripting.Dictionary")
For lngZ = 10 To Cells(Rows.Count, 2).End(xlUp).Row
objDic(Cells(lngZ, 2).Value) = 0
Next
Me.ComboBox1.List = objDic.keys
End Sub
Um die Tabelle zu filtern habe ich ein Makro aufgezeichnet und dieses dann angepasst:
ActiveSheet.Range("$A$9:$F$1048576").AutoFilter Field:=2, Criteria1:=ComboBox1.Text
UserForm1.ListBox1.Clear
Call ListboxFill
End Sub
Dann sollte eigentlich die Listbox gelöscht und neu eingelesen werden -> und dieser Punkt klappt leider nicht.
Wisst ihr, wie ich vorgehen muss? Danke schon mal für die Hilfe!
Viele Grüße
Daedalus
|