Office: Listbox mit Comboboxen Filtern

Hallo zusammen,

ich will diese Listbox über Vorauswahl die in der Blättern abgelegt sind über die Comboboxen Filtern.

Hier in meinem Beispiel hab ich angefangen was ich es niht hin bekomme.

Was mach ich hier falsch?

:)

 

Hi,

hier mal ein "Spatenstich" für Deinen Anfang.
Schau Dir den Code im Userform_Initialize() und cboKunde_Change() an.

Daraus kannst Du ableiten und vor allem das Füllen der cboArtikel variabel gestalten, für den wahrscheinlichen Fall, dass weitere Artikel hinzukommen.

 

Hallo Marco,

danke für deinen Einsatz.

Allerdings will ich es mit Abhängigkeit haben.

Ich will vom Blatt "Kunde" was aus wählen dann abhängig was ausgewählt worden ist dann die werte weiter geben .usw.

Bekomm ich es mit deinen Code hin?

 

Moment;

Verstehe ich so, dass Du die Combobox mit den Kundennamen gefüllt haben möchtest und in Abhängigkeit dieser Auswahl wird die Füllung der nächsten Combobox beeinflusst.

Beispiel:
cboKunde = "Rewe"
dann
cboArtikel = "Liste mit ReweArtikel"

Die Daten kommen jeweils aus den Tabellenblättern.

Aber Du meinst es irgendwie doch anders, oder?

 

Ja, ist richtig.

Allerdings kommen die Daten nicht von diese Boxen. In diesen Blatt "Daten" schreib ich mit diese ganzen Kunde und Artikel Blätter mit andere UserForm in Daten rein.

Ich will erstmal nur Filtern können. Es sind ca. 10000 Zeilen.


Wenn in ComboBox Kunde "Lidl" ausgewählt wird dann sollen die Artikel vom Blatt "Lidl" zur Verfügung stehen.
Allerdings in ComboBox 3 bzw ComboBox 4 sollte nur Produktioncode bzw Produktkennung zur Auswahl stehen vom Blatt "Lidl".

Krieg es das so hin?

 

ok, dann passt es ja.

Was bisher funktioniert:
cboKunde wird mit Kundennamen gefüllt über das UserForm_Initialize()-Event.
cboArtikel über das cboKunde_Change()-Event.

Nun musst Du das Ganze eben an den richtigen Stellen fortführen.
Einen möglich Code dazu hast Du ja - nur zu *wink.gif*

 

Alles klar. Ich probiere es heut abend.
Melde mich.

Danke dir *Smilie

 

Hallo Marco,

ich komme nicht so richtig zu recht.
Bin leider voll der Einsteiger.

Beim Start der UserForm befülle ich die Listbox1 mit alle Daten aus dem Blatt "Daten.

Wie soll ich mit deim Coder jetzt diese Werte Filter?
Sobald ich das erste Auswahl treffe passier Nix!!! *rolleyes.gif*

 

Hallo Marco,

ich habe eine neuen Vorschlag.

Kannst du bitte schauen warum das nicht so richtig gefiltert wird?

 

ich bin der Meinung Du solltest nur Datensätze hinzufügen die tatsächlich da sind und nicht auf Verdacht einen Bereich angeben, sodass zig Leerzeilen mit berücksichtigt werden.

Wenn Du nun noch mit dem vorherigen Code geschickt kombinierst, kommst Du sogar an den Punkt, dass gar keine widersprüchliche Auswahl angeboten wird.

Das ist dann das, was Du mit "nicht richtig gefiltert" meinst.


Im Grunde könntest Du es Dir noch einfacher machen, indem Du mit Deinen Comboboxen auf den Autofilter des Worksheets zugreifst - die gefilterten Datensätze in ein temporäres Worksheet kopierst , dieses Worksheet dann via Array und Combobox.List verwenden, um Deine gefilterten Daten

a) in der Listbox anzuzeigen
b) wiederum die Filtermöglichkeiten in den Comboboxen aktualisierst


Meine Empfehlung in Kurzform:
1. Schau Dir dir .AutoFilter-Methode() und ein paar Beispiele an
2. Nutze diese, um Dein Filtrat in ein temporäres Worksheet zu kopieren
3. Nutz dieses Worksheet um,
3a) Deine Comboboxen zu aktualisieren
3b) Deine Listbox zu aktualisieren
3c) das temporäre Worksheet darf unsichtbar und nur via Code nutzbar sein (xlSheetVeryHidden)


Viel Information - aber bleib einfach dran. Zerlege in Teilprobleme und löse diese mit langem Atem *Smilie

 

Hi,

könntest du mir mal ein Beispiel Code schreiben?
Ich komm nicht so mit *frown.gif*

 

Also,
recherchiere zu 1) und programmiere Beispiele dazu.
Mach ne Tabelle mit 2Spalten zu 10 Datensätze und versuche via Code zu filtern. Bei problemen melde dich dazu, supporte Dich gern.

Aber einen kompletten Code werde ich nicht schreiben, davon hast du ja nichts ... ggf findet sich diesbezüglich eine andere helfende Hand.