Filtern mit mehreren Bedingungen

Edgar · 2017-08-04T10:32:35+00:00

Hallo Forum, ich suche nach einer Lösung für folgendes Problem und bitte um eure Hilfe: Ich habe eine Übersicht von Produkten und deren Anwendungsgebiete. Nun ist es so, dass das selbe Produkt für mehrere Anwendungen geeignet ist und natürlich sind auch für eine konkrete Anwendung mehrere Produkte möglich. Ich suche nun nach einer Auswertung, bei der ich z.B. 3 Anwendungen auswähle und dann alle Produkte finde, die für alle 3 Anwendungen geeignet sind. Wie muss ich die Datentabelle aufbauen und wie geht die Auswertung? Danke im Voraus Edgar

Hallo Edgar,
... in einer Matrixfunktion(alität)sformel, die keines spez. Formelabschluss wie eine klassische Matrixformel benötigt.
Sorry, wenn ich erst jetzt antworte. Hab eben festgestellt, dass ich offensichtlich meinen Beitrag von heute Morgen vergessen hatte abzusenden. Was ich hiermit nachhole.
Wenn Du den Auswertungsbereich erweiterst musst Du die Formel nur entsprechend anpassen. Die Dropdownzelle (B10) kannst Du natürlich auch in den Nachbarzellen einsetzen.
Meine Auswertungsformel in G10 ist nach rechts und unten kopiert. Ich hab sie bisher allerdings nur oberflächlich getestet.

	A	B	C	D	E	F	G	H	I
1	Anwendung	Produkt A	Produkt B	Produkt C	Produkt D	Produkt E	Produkt G	Produkt F
2	Anwendung1	x	x	x			x	x
3	Anwendung2	X		x	x
4	Anwendung3	x		x		x		x
5	Anwendung4				x	x
6	Anwendung5		x	x		x	x
7	Anwendung6	x	x	x	x	x	x	x
8
9		Zuordnung	Zuordnung	Zuordnung	Zuordnung		Produkt
10	Frage 1:	Anwendung2	Anwendung4				Produkt D
11	Frage 2:	Anwendung1	Anwendung4
12	Frage 3:	Anwendung3	Anwendung5				Produkt C	Produkt E
13	Zusatz"frage"	Anwendung1	Anwendung5	Anwendung6			Produkt B	Produkt C	Produkt G

Formeln der Tabelle

Zelle	Formel
G10	=WENNFEHLER(INDEX($1:$1;AGGREGAT(15;6;ZEILE(A$1:INDEX($A:$A;ANZAHL2($1:$1)))/(HÄUFIGKEIT(((Anwendung=$B10)+(Anwendung=$C10)+(Anwendung=$D10))($B$2:$H$7="x")SPALTE($B1:$H1); SPALTE($A1:$H1))=ANZAHL2($B10:$D10)); SPALTE(A1))); "")

Namen in Formeln

Zelle	Name	Bezieht sich auf
G10	Anwendung	=Tabelle3!$A$2:$A$7

Namen verstehen

Datengültigkeit der Tabelle

Zelle	Zulassen	Daten	Eingabe 1	Eingabe 2
B10	Liste		=Anwendung

Namen in Formeln

Zelle	Name	Bezieht sich auf
B10	Anwendung	=Tabelle3!$A$2:$A$7

Namen verstehen

Gruß Werner
.. , - ...

Hallo Edgar,
anbei noch eine kleine Korrektur:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
'Range anpassen
Range("B1:G1").Interior.ColorIndex = 34
Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Interior.ColorIndex = 34
Range("A1").Interior.ColorIndex = xlNone
Exit Sub
End If
End If
If Not Intersect(Target, ActiveSheet.AutoFilter.Range) Is Nothing Then
ActiveSheet.AutoFilter.Range.AutoFilter Field:=Target.Column - _
ActiveSheet.AutoFilter.Range.Columns(1).Column + 1, _
Criteria1:="=" & "x", Operator:=xlAnd
Cells(1, Target.Column).Interior.ColorIndex = 36
Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Interior.ColorIndex = 36
End If
Cancel = True
End Sub

Füge die fette Zeile noch dazu.
[ Wenn ich die Spalten und Zeilen erweitere, funktioniert dann das Makro immer noch? ]
Zeilen können beliebig erweitert werden. Falls mehr Spalten, dann ändere die Zeile
Range("B1:G1").Interior.ColorIndex = 34
entsprechend (z.B. in K1).
Du musst natürlich auch den Autofilter vorher einmalig auf alle Spalten erweitern.
Gruß
Klaus

Forumthread: Filtern mit mehreren Bedingungen

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Filtern mit mehreren Bedingungen

Forumthread: Filtern mit mehreren Bedingungen

25 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread