ich habe eine Excel-Mappe gebastelt, in der die Anwender über ein Kombinationsfeld ihren Wert aussuchen können. Der Wert dieses Kombofeldes wird in eine neues Tabellenblatt (Ergebnis) Zelle D2 übertragen.
Ich habe bereits einen Spezialfilter über ein Makro eingebaut, welches auch so funktioniert, wie ich das gerne wollte. In dem wird auch der Wert eines Kombofeldes als Filterkriterium ausgewählt.
Das Makor lautet bis jetzt:
Select Case Worksheets("Ergebnis").Range("B2")
Case "aktiv"
Worksheets("Ergebnis").Select
Sheets("Grundtabelle").Range("A12:L2656").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Sheets("Ergebnis").Range("B1:B2"), CopyToRange:=Sheets("Ergebnis").Range("A5:D5000") _
, Unique:=True
End Select
Nun soll zusätzlich über die schon erscheinende Ergebnisfilterungstabelle eine erneute Filterung nach dem über das Kombinationsfeld ausgewählten Wert angewendet werden.
Beispiel:
Ergebnis des ersten Spezialfilters im TB "Ergebnis" wäre - Spalten A, B, C, D
Zeile
5 Auftrag - BEZ - Team - Status
6 8A - Test1 - AB31 - aktiv
7 8B - Test2 - B31 - aktiv
8 7C - Test3 - A32 - aktiv
9 7D - Test4 - BB32 - aktiv
Nun soll also über diese schon vorgefilterten Daten noch zusätzlich nach dem Team (Wert des Kombinationsfeldes in D2) gefiltert werden. Da aber mehr als 100 Teams auftauchen können, wollte ich hier nicht auch alle Einzeln über Select Case ansprechen, zumal ich hier das Problem habe, dass ich nicht nach dem genauen Wert der Spalte C suche, sondern nur nach einem Teil - so nach dem Motto wenn Zelle D2 den Wert 31 enthält, sollten als Ergebnis imnur noch die Zeilen auftauchen, in denen die Spalte C den Wert 31 enthält. Hier also die Zeilen 6 und 7.
Ich hoffe ich konnte mich verständlich ausdrücken.
Vielen Dank schon mal im voraus für Eure Antworten.
Grüße Susi