Autofilter mit Checkboxen ansprechen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Diana,
hier ein Beispel, wie du den Autofilter an die Auswahl der Checkboxen koppeln kannst.
In der Summe wird es aber etwas einfacher, wenn du eine Listbox verwendest, statt mehrerer Checkboxen.
Außerdem hat die Listbox das vom Autofilter her gewohnte Aussehen.
Gruß
Franz

'Autofilter setzen über 4 Checlboxen
Private Sub CheckBox1_Click()
Call FilterSpalteD
End Sub
Private Sub CheckBox2_Click()
Call FilterSpalteD
End Sub
Private Sub CheckBox3_Click()
Call FilterSpalteD
End Sub
Private Sub CheckBox4_Click()
Call FilterSpalteD
End Sub
Private Sub FilterSpalteD()
Dim arrFilter(), intI As Integer
Dim wks As Worksheet
If Me.CheckBox1 = True Then
intI = intI + 1
ReDim Preserve arrFilter(1 To intI)
arrFilter(intI) = "C"
End If
If Me.CheckBox2 = True Then
intI = intI + 1
ReDim Preserve arrFilter(1 To intI)
arrFilter(intI) = "D"
End If
If Me.CheckBox3 = True Then
intI = intI + 1
ReDim Preserve arrFilter(1 To intI)
arrFilter(intI) = "E"
End If
If Me.CheckBox4 = True Then
intI = intI + 1
ReDim Preserve arrFilter(1 To intI)
arrFilter(intI) = "F"
End If
Set wks = Worksheets("Tabelle1")
With wks
If .AutoFilterMode = True Then
If intI > 0 Then
.AutoFilter.Range.AutoFilter Field:=4, Criteria1:=arrFilter, Operator:=xlFilterValues
Else
.AutoFilter.Range.AutoFilter Field:=4 ', Criteria1:=arrFilter, Operator:=xlFilterValues
End If
End If
End With
End Sub
' Autofilter setzen über Listbox mit Eigenschaften Multiselect = 1 und ListStyle =1
Private Sub ListBox1_Change()
Dim wks As Worksheet
Dim arrFilter(), intI As Integer, intCount As Integer
With Me.ListBox1
For intCount = 0 To .ListCount - 1
If .Selected(intCount) = True Then
intI = intI + 1
ReDim Preserve arrFilter(1 To intI)
arrFilter(intI) = .List(intCount, 0)
End If
Next
End With
Set wks = Worksheets("Tabelle1")
With wks
If .AutoFilterMode = True Then
If intI > 0 Then
.AutoFilter.Range.AutoFilter Field:=4, Criteria1:=arrFilter, Operator:=xlFilterValues
Else
.AutoFilter.Range.AutoFilter Field:=4 ', Criteria1:=arrFilter, Operator:=xlFilterValues
End If
End If
End With
End Sub
Private Sub UserForm_Initialize()
With Me.ListBox1
.AddItem "C"
.AddItem "D"
.AddItem "E"
.AddItem "F"
End With
End Sub

Set wks = Worksheets("Tabelle1") With wks If .AutoFilterMode = True Then If intI > 0 Then .AutoFilter.Range.AutoFilter Field:=4, Criteria1:=arrFilter, Operator:=xlAnd, Criteria2: _ =Array("A", "B"), Operator:=xlFilterValues Else .AutoFilter.Range.AutoFilter Field:=4 ', Criteria1:=arrFilter, Operator:=xlAnd, _ Criteria2:=Array("A", "B"), Operator:=xlFilterValues End If End If End With End Sub

Hallo Steffi-Diana,
für den Einsatz des Autofilters in Spalte C gibt es jetzt 2 Baustellen, die irgendwie bereinigt werden müssen:
1. verbundene Zellen
Die Parameter A, B und D bis H sind jeweils in verbundene Zellen eingetragen. So funktioniert der Autofilter hier nur für den Mitarbeiter MA1. Bei allen anderen Mitarbeitern ist die Spalte C leer, so dass keine Daten angezeigt werden, wenn der Filter auf einen der Werte gesetzt wird.
Die einfachste Lösung: Die verbundenen Zellen auflösen und den Parameter in Spalte C in jeder Zeile eintragen. Dies müßte man einmal per Hand machen oder nach jedem Kopieren der Daten per Makro erledigen.
Dann kann man den Autofilter auch einsetzen.
Ist es ein Problem, die verbundenen Zellen in Spalte C aufzulösen? Außer das es optisch evtl. nicht so "schön" aussieht wie mit verbundenen Zellen? Zur Not könnte man natürlich links von Spalte C auch eine weitere Hilfsspalte einfügen, in der in jeder Zeile der Parameter steht. Damm müßten aber viele Zeilen in den Makros angepasst werden.
Die Prameter "A", "B", "C", "H" im Autofilter für Spalte C fix zusetzen und die Parameter "D" bis "G" variabel ist dann kein so großes Problem bei der Programmierung.
2. Parameter C / Mitarbeiter abc
Wenn ich dich dich richtig verstanden habe, dann sollen die Daten dieser Zeile für jeden Mitarbeiter immer im Diagramm angezeigt werden.
Im Code für die einzelnen MA-Buttons wird für Spalte "Mitarbeiter" immer der Filter auf den MA oder "C" gesetzt.
Steht in der Zeile mit Parameter "C" in Spalte Mitarbeiter in der Datei mit den echten Daten immer "C" und nicht "abc" ?
Grüßle
Franz

Beliebteste Forumthreads (12 Monate)

Autofilter mit Checkboxen ansprechen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Autofilter mit Checkboxen ansprechen

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