ich bin schon ein wenig am verzweifeln!
Habe folgende Code zum Filtern.
Jedoch funktioniert es nicht so recht. Habe im Forum nichts verwertbares gefunden, da oft mit Hilfsspalten und Verkettungen gearbeitet wird. Genau das versuche ich zu umgehen.
Ich möchte meinen Datensatz nach Werten, die in 4 Spalten stehen filtern.
Ich habe zwei Boxen, in denen die Kriterien stehen.
In einer der vier Spalten (2) kann nur der Wert aus Box1 stehen.
In den den restlichen 3 Spalten (3,4,6) der Wert aus Box 2.
Wenn der Wert aus Box2 zumindest einmal in den 3 Spalten (natürlich je Zeile) vorkommt, soll die Zeile angezeigt werden. Sprich eine Oderbeziehung zwischen den 3 Spalten.
Bin nur soweit gekommen:
Private Sub FilterButton_Click()
ActiveSheet.Range("$A$4:$N$892").AutoFilter Field:=2, Criteria1:="=*" & DropdownBauphase. _
Value & "*", _
Operator:=xlAnd
ActiveSheet.Range("$A$4:$N$892").AutoFilter Field:=3, Criteria1:="=*" & DropdownRolle.Value _
_
& "*", _
Operator:=xlAnd
ActiveSheet.Range("$A$4:$N$892").AutoFilter Field:=4, Criteria1:="=*" & DropdownRolle.Value _
_
& "*", _
Operator:=xlAnd
ActiveSheet.Range("$A$4:$N$892").AutoFilter Field:=6, Criteria1:="=*" & DropdownRolle.Value _
_
& "*", _
Operator:=xlAnd
ActiveWorkbook.Worksheets("Schnittstellenlandkarte").AutoFilter.Sort.SortFields _
.Clear
With ActiveWorkbook.Worksheets("Schnittstellenlandkarte").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Lg
Adrian