VBA Filter mit mehreren Kriterien/ 4 Spalten

Hallo Leute,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub SpecialFilter_Click() Dim Datenblatt As Worksheet, Bauphasen As Range Dim StartZeile As Integer, MatchRow As Long, EndRow As Long, Spalte1 As Integer, SearchBP As _ String, SearchRole As String, hello As String If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData Set Datenblatt = Worksheets("Schnittstellenlandkarte") With Datenblatt StartZeile = 5 Spalte1 = 2 SearchBP = DropdownBauphase.Value SearchRole = DropdownRolle.Value EndRow = .Cells(.Rows.Count, Spalte1).End(xlUp).Row Set Bauphasen = .Range(.Cells(StartZeile, Spalte1), .Cells(EndRow, Spalte1)) For Each cell In Bauphasen hello = cell.Value If Not InStr(cell.Value, SearchBP) > 0 And SearchBP "" Then If Not InStr(cell.Offset(0, 1).Value, SearchRole) > 0 And SearchRole "" Then If Not InStr(cell.Offset(0, 2).Value, SearchRole) > 0 Then If Not InStr(cell.Offset(0, 4).Value, SearchRole) > 0 Then cell.EntireRow.Hidden = True 'hier lahmt mein pferdchen!! End If End If End If Else End If Next End With End Sub

Private Sub SpecialFilter_Click() Dim Datenblatt As Worksheet, Bauphasen As Range Dim StartZeile As Integer, MatchRow As Long, EndRow As Long Dim Spalte1 As Integer, SearchBP As String, SearchRole As String, hello As String Dim rngHide As Range Application.ScreenUpdating = False If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData Set Datenblatt = Worksheets("Schnittstellenlandkarte") With Datenblatt StartZeile = 5 Spalte1 = 2 SearchBP = DropdownBauphase.Value SearchRole = DropdownRolle.Value EndRow = .Cells(.Rows.Count, Spalte1).End(xlUp).Row Set Bauphasen = .Range(.Cells(StartZeile, Spalte1), .Cells(EndRow, Spalte1)) For Each cell In Bauphasen hello = cell.Value If Not InStr(cell.Value, SearchBP) > 0 And SearchBP "" Then If Not InStr(cell.Offset(0, 1).Value, SearchRole) > 0 And SearchRole "" Then If Not InStr(cell.Offset(0, 2).Value, SearchRole) > 0 Then If Not InStr(cell.Offset(0, 4).Value, SearchRole) > 0 Then If rngHide Is Nothing Then Set rngHide = cell Else Set rngHide = Union(rngHide, cell) End If End If End If End If Else End If Next End With If Not rngHide Is Nothing Then rngHide.EntireRow.Hidden = True End Sub

Private Sub SpecialFilter_Click() Dim Datenblatt As Worksheet, Bauphasen As Range, i As Long, z As Long, arrcells, Auswahl As _ Range Dim StartZeile As Integer, MatchRow As Long, EndRow As Long, Spalte1 As Integer, SearchBP As _ String, SearchRole As String, hello As String If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData Set Datenblatt = Worksheets("Schnittstellenlandkarte") With Datenblatt StartZeile = 5 Spalte1 = 2 SearchBP = DropdownBauphase.Value SearchRole = DropdownRolle.Value EndRow = .Cells(.Rows.Count, Spalte1).End(xlUp).Row Set Bauphasen = .Range(.Cells(StartZeile, Spalte1), .Cells(EndRow, Spalte1)) ReDim arrcells(1) As Variant i = 1 For Each Cell In Bauphasen hello = Cell.Value If Not InStr(Cell.Value, SearchBP) > 0 And SearchBP "" Then If Not InStr(Cell.Offset(0, 1).Value, SearchRole) > 0 And SearchRole "" Then If Not InStr(Cell.Offset(0, 2).Value, SearchRole) > 0 Then If Not InStr(Cell.Offset(0, 4).Value, SearchRole) > 0 Then arrcells(i) = Cell.Row ReDim Preserve arrcells(UBound(arrcells) + 1) i = i + 1 End If End If End If End If Next For z = 1 To i Next End With End Sub

Beliebteste Forumthreads (12 Monate)

VBA Filter mit mehreren Kriterien/ 4 Spalten

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

220 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Filter mit mehreren Kriterien/ 4 Spalten

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

220 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread