Stufenweiser Filter m. VBA u. Combobox

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo, Tobias,
Deine Aufgabe ist im ersten Schritt leicht lösbar, wenn man von einer Spalte ausgeht. Auf die mehrspaltigkeit kann erweitert werden, wobei die Unikat-Anforderung in diesem Schritt nur jeweils spaltenweise durch die Filtermethode erfüllt werden kann.
Eine Userform mit einer Listbox Listbox1 (wegen Option zum MultiSelect!) mit Standardeinstellung wird als Basis erstellt und mit folgender Initalisierungs-Prozedur eröffnet:


Private Sub UserForm_Initialize()
Dim rngQ As Range, rngC As Range
Dim prevSU As Boolean
listbox1.MultiSelect = 2
listbox1.TextAlign = fmTextAlignLeft
bakSU = Application.ScreenUpdating
Application.ScreenUpdating = False
Set rngQ = Range("A1:A" & _
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row)
rngQ.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
For Each rngC In rngQ
If ActiveSheet.Rows(rngC.Row).Hidden = False Then
listbox1.AddItem rngC.Value
End If
Next
ActiveSheet.ShowAllData
Application.ScreenUpdating = True
Application.ScreenUpdating = bakSU
End Sub

Wie allerdings die Liste der Listbox1 durch einen weiteren Selektionfilter geschickt werden soll, richtet sich wohl nach den Kriterien.
Will man die AdvancedFilter-Funktionalität benutzen, dann wäre

der Listboxinhalt auf einen eigenen (Temporär-)Bereich auszulesen,

die Kriterien zu setzen,

die AdvancedFilter auf diesen Bereich auszuführen

die Listbox1-Einträge löschen,

die gefilterte Liste analog zur Ausgangsselektion wieder in die Listbox1 einzulesen,

der Temporäbereich zu löschen.
Ähnlich ist vorzugehen, will man die AutoFilter-Metohden einsetzen.
Wie allerdings die Umgebungsparameter zu setzen sind (Konstante, Zellenbereichsinhalte, Schaltflächen-/Riigabefelder in der UserForm) das wird zu Planen sien und kann hier nicht allgemein gelöst werden.
Vielleist hilft dieser Grundstein.
Gruß,
Uwe

Hallo, Tobias!
Nach meinem bisherigen Verstaendnis zur Umsetzung des AutoFilters durch die entsprechenden Funktionen von EXCEL, funktioniert das abermalige Anwenden auf eine bereits gefilterte Spalte(!) nicht so, wie Du es Dir wohl wünschst.
Die Gesamtliste der Spalte bleibt erhalten und auf ihr wird bei einer Neuauswahl der Kriterien (critica1 und critica2) der Filter wieder angewendet. Durch das Kopieren der Ur-Spalte in mehrere Folgespalten, kann für jede Spalte nacheinander ein Autofilter ausgeführt werden. Jede Spalte beruecksichtigt dabei die Auswahl der davor durchgefuehrten Autofilterungen.
Der Einsatz des Spezialfilters hebt die Funktion des Autofilters auf. Es stehen alle Daten ungefolter zur neuen Filterung zur Verfuegung. Da hier jedoch mehr als zwei Kriterien als Filter einsetzbar sind, ist es also nur eine Frage der Formulierung der Kriterien, um an die gesuchten Daten zu gelangen.
Soweit die manuelle, menuegesteuerte Filterung.
Nun verstehe ich nicht kanz, warum man nicht mit einem Temporaeren Tabellenblatt arbieten sollte, da es doch Programmgesteuert kreiert und nach Aufgabenerfüllung ebenso geloescht wird.
Vielleicht waere es für mich zu Vorstellungsunterstuetzung gut, wenn Du beschreiben koenntest, wie Deine Kriterien aufgebaut sind, dass sie nicht gemeinsam auf die Liste angewendet werden koennen, sondern nur auf den jeweils vorgefilterten Stand einer Liste.
Allerdings würde die Arrayloesung bei geschickter Programmierung auch nicht so bedeutend zeitaufwendiger in der Ausführung ablaufen, wie die zellenorientierte EXCEL-Loesung
Gruss,
Uwe

Beliebteste Forumthreads (12 Monate)

Stufenweiser Filter m. VBA u. Combobox

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Stufenweiser Filter m. VBA u. Combobox

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread