Clever-Excel-Forum

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

Hallo Michael,

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

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

Hallo,

das Filtern direkt im Tabellenblatt wäre da einfacher.

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

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

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

Danke Klaus Dieter

Das wird immer besser

LG
Michael

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

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

Eizi100

Klaus-Dieter

Eizi100

Klaus-Dieter

Eizi100

Eizi100

Klaus-Dieter

Eizi100

snb

Egon12