Ich möchte gerne eine Listbox ohne ausgeblendete Zeilen anzeigen lassen.
Den Inhalt der Listbox ziehe ich mir über:
Private Sub Userform_initialize()
ListBox1.RowSource = "Tabelle4"
ListBox6.RowSource = "Tabelle3"
End Sub
Sobald ein Eintrag in der Listbox markiert wurde, werden die Textboxen gefüllt, soweit alles prima. In der userform habe ich nun eine zweite Listbox die es ermöglicht mehrere Ansprechpartner pro Kunden anzulegen. Dazu habe ich in einem 2. Tabellenblatt eine 2. Tabelle angelegt und einen Autofilter gelegt:
Sheets("PCS Ansprechpartner").Select
ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=2, Criteria1:= _
TextBox6.Value, Operator:=xlAnd
Funktioniert auch, dass er je nachdem welcher Kunde ausgewält ist, die Ansprechpartnertabelle sortiert. Nur zeigt er mir jeweils immer alle Ansprechpartner an und nicht nur die sortierten.
Wie schaffe ich es, dass mir in Listbox6 nur die gefilterten Einträge anzeigt.
Danke für Eure Hilfe :)