Mehrere Filter einander nicht ausschliessend

Hallo zusammen
Ich habe ein Problem, bei dem ich nicht wirklich weiterkomme und offensichtlich die falschen Suchbegriffe bei Google benütze, da ich mir nicht vorstellen kann, dass dieses Problem noch nie jemand hatte.
Aber erst einmal die Excel Version. Leider fehlen hier die Mac-Versionen. Daher Office 2011 Mac.
Nun zum Problem: Ich habe ein Blatt mit Einträgen in Tabellenform, jedoch keine Tabelle an sich und kann vermutlich auch keine Tabelle daraus erstellen, da die Basisdatei von einem Mitarbeiter mit mässigen Excelkenntnissen entworfen wurde und unter anderem mit Makros bestückt (absolute bezüge). Ich möchte hier nun ein wenig nachrüsten und habe mir ein UserForm mit 4 Checkboxen und eine ListBox gebastelt. Anhand der Checkboxen werden 1-4 Filter aktiviert, welche die "Tabelle" nach jeweils dem gleichen Kriterium filtern. Soweit klappt alles.
Nun meine Frage: Gibt es einen Weg, dass sich die einzelnen Filter nicht gegenseitig ausschliessen? Kurzes Beispiel: Ich habe in der Tabelle folgende Werte: A2=1, A3=2, A4=2 und B2=1, B3=2, B4=1. Wenn ich nun durch die Checkboxen die Filter A:A und B:B aktiviere und in der Listbox 1 auswähle, wird logischerweise nur noch 2:2 angezeigt, da nur hier der Filterwert jeweils in beiden Filtern vorkommt. Ich bräuchte aber fast das Gegenteil. Ich hätte gerne alle Zeilen, in welchen die jeweiligen Filter aktiv sind und eine 1 zu finden ist, angezeigt. Im Beispiel also die Zeilen 2 und 4.
Gibt es hier eine Möglichkeit, die am Ende auch via meinem UserForm steuerbar ist?
Ich hoffe, meine Erklärung ist in etwa verständlich.
Freundliche Grüsse
Andy

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andy,
hier ein entsprechendes Makro für eine weitere Schaltfläche im Userform.
Da es beim Hin-und Her zwischen Windows- und Mac-Welt Probleme mit Sonderzeichen gibt hab ich den Code-Namen verwendet statt Worksheets("Blattname")
LG
Franz

Private Sub CommandButton3_Click()
'ODER-Filter setzen
Dim Zeile As Long, Zeile_L As Long
Dim wks As Worksheet
Dim SpaKuerzel(), iSK As Integer
Dim SpaFilter As Long
Dim bolTreffer As Boolean
If Me.ListBox1.ListIndex = -1 Then
MsgBox "Bitte erst einen Namenskuerzel in der Listbox waehlen"
Exit Sub
End If
Set wks = ActiveSheet 'oder Blatt1 'Blatt "Überwachung Messprotokolle"
With wks
If .AutoFilterMode = True Then
If .FilterMode = True Then .ShowAllData
.AutoFilterMode = False
End If
'Letzte Zeile mit Inhalt in Spalte A - Auftrag-Nr
Zeile_L = .Cells(.Rows.Count, 2).End(xlUp).Row
'Spalte für Hilfsfilter
SpaFilter = .Range("W12").Column
'Spalten in Array einsetzen, wenn Checkbox markiert
If Messung = True Then
iSK = iSK + 1
ReDim Preserve SpaKuerzel(1 To iSK)
SpaKuerzel(iSK) = Range("H12").Column
End If
If Protokoll1 = True Then
iSK = iSK + 1
ReDim Preserve SpaKuerzel(1 To iSK)
SpaKuerzel(iSK) = Range("L12").Column
End If
If Schlussbericht = True Then
iSK = iSK + 1
ReDim Preserve SpaKuerzel(1 To iSK)
SpaKuerzel(iSK) = Range("O12").Column
End If
If Protokoll2 = True Then
iSK = iSK + 1
ReDim Preserve SpaKuerzel(1 To iSK)
SpaKuerzel(iSK) = Range("R12").Column
End If
'Inhalte in Hilfsspalte löschen
.Columns(SpaFilter).ClearContents
'Markierung "x" in Hilfsspalte eintragen, wenn in Listbox gewählter _
Name in einer der gewählten Spalten vorkommt.
If iSK = 0 Then
MsgBox "Es wurde keine der Checkboxen gewählt"
Else
For Zeile = 13 To Zeile_L
bolTreffer = False
For iSK = 1 To UBound(SpaKuerzel)
If LCase(.Cells(Zeile, SpaKuerzel(iSK))) _
= LCase(Me.ListBox1.Value) Then
bolTreffer = True
Exit For
End If
Next
If bolTreffer = True Then .Cells(Zeile, SpaFilter).Value = "x"
Next
.Range(.Cells(12, SpaFilter), .Cells(Zeile_L, SpaFilter)).AutoFilter Field:=1, _
Criteria1:="x", VisibleDropDown:=False
Me.Hide
'            ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = Range("H12").Column
ActiveWindow.ScrollRow = 12
End If
End With 'wks
End Sub

Beliebteste Forumthreads (12 Monate)

Mehrere Filter einander nicht ausschliessend

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mehrere Filter einander nicht ausschliessend

8 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)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread