Listbox in UF Mehrfachfilter

[Eizi100]

Hallo zusammen

Ich beisse mir gerade mein restlichen "echten" Zähne aus.
In einer UF lese ich über eine Listbox das Tabellenblatt ein. Mit den Textboxen kann ich die Sachen suchen.
Jetzt mein Problem, wobei ich mir gar nicht sicher bin ob das möglich ist.
Ich möchte, wenn ich Spalte A nach mein Suchkriterium filtere, dass ich dann die Spalte B filtern kann (Aber ohne die in Spalte B ausgeschlossenen Daten). Ich hoffe ihr kennt euch mit meinem Wunsch aus.
Ich will noch dazusagen, dass in Spalte A höchstens 10 (fixen) Kriterien sind. Ich habe versucht, dass mit einer Combobox mit 

Code:

.AddItem "1"

probiert. Keine Chance

Ich habe im Netz einige Zeit verbracht und leider nichts gefunden. Kann aber sein, dass ich den Wald vor lauter Bäumen nicht mehr sehe. Das hatte ich schon öfters

LG und Danke
Michael

[Klaus-Dieter]

Hallo Michael,

lade doch mal deine Datei hoch, mit deiner spärlichen Beschreibung kann man nicht viel anfangen.

[Eizi100]

Sorry.. das habe ich echt im Eifer des Gefechtes vergessen. Habe extra die Datei umgearbeitet und dann das   
Im Prinzip will ich die gefilterte Listbox nochmal filtern

[Klaus-Dieter]

Hallo,

das Filtern direkt im Tabellenblatt wäre da einfacher.

[Eizi100]

Danke für den tipp
Kann ich das gefilterte dann in die Userform einlesen? Ich brauche die Daten nämlich in der Uf. Das ist eine Eingabemaske..
Ich werde mich mal auf Netzsuche machen.

Lg
Michael

[Eizi100]

Hallo Klaus Dieter
Als erstes einmal vielen Dank für deine Hilfe(n). Du hast mir schon des öfteren geholfen

Ich habs jetzt hingebracht. meines Wissens nach funktioniert das (Tadellos??). 
Hab die geänderte Datei angehängt.


LG Michael

[Klaus-Dieter]

Hallo,

wenn du dieses Makro verwendest, kannst du die im Tabellenblatt gefilterte Liste in dein Listenfeld einlesen.

Code:

Private Sub UserForm_Initialize()
   Dim iCounter As Integer
   Dim intAnz As Integer
   For iCounter = 2 To WorksheetFunction.CountA(Columns(1))
      If Rows(iCounter).Hidden = False Then
     
         ListBox1.AddItem
         ListBox1.List(intAnz, 0) = Cells(iCounter, 1).Value
         ListBox1.List(intAnz, 1) = Cells(iCounter, 2).Value
         ListBox1.List(intAnz, 2) = Cells(iCounter, 3).Value
         intAnz = intAnz + 1
      End If
   Next iCounter
End Sub

[Eizi100]

Danke Klaus Dieter

Das wird immer besser

LG
Michael

[snb]

Etwas weniger Code reicht auch.
Verwende dynamische Tabellen.
Verwende Autofilter
Verzichte auf Additem
Verwende .Llist zum Befüllen eines Listbox oder Combobox

[Egon12]

Hallo Michael,

anbei noch eine Lösung ohne Filtern in der Tabelle. Ist vielleicht auch nützlich. Sind aber ein paar Programmzeilen mehr.

Gruß Uwe