Sub update_filter()
'Debug.Print "update was fired"
Dim tbl as ListObject
Dim cell as Range
Set tbl = ThisWorkbook.Worksheets("TABELLENBLATTNAME").ListObjects("LISTOBJECTNAME-Hersteller/Teil")
'delete all old items
Do While UserForm.ComboBox2.ListCount > 0
UserForm.ComboBox2<span style="font-family: Arial, Verdana, sans-serif;">.RemoveItem (0)</span>
Loop
For each cell in tbl.ListColumns(1).DataBodyRange If cell.offset(0,1).value=UserForm.ComboBox1.Value then
Userform.ComboBox2.Additem(cell.value) End If
Next cell
End Sub
So hätte das aussehen sollen.
Dann erstmal sorry fürs Seriefeuer. Ich wollte das nicht dreimal Posten, aber anscheinend ist Leertaste im Codesegment = Posten..
Also: ListObjectName ist der Name deiner Tabelle = ListObject. Wenn du unter Einfügen-> Tabelle einfügen eine Tabelle einfügst ist das ein sogenanntes ListObject. Wenn du jetzt ins ListObject klickst, dann erscheint oben in der Mitte gelb ein Tab genannt Tabellentools, wenn du da drauf klickst kannst du links oben einen Tabellennamen eingeben. Diesen Tabellennamen oder ListObject namen musst du da eingeben, dann sollte es klappen.
Ich hoffe das hilft weiter.
|