Autofilter per vba einstellen

Hallo zusammen,
ich habe hier eine Tabelle, in der ich Werte grafisch darstelle, wobei diese gefiltert werden sollen (Autofilter). Weil ich die Filterkombinationen sehr oft ändern muss, habe ich mir zu jedem Filter Schaltflächen erzeugt, mit dessen Hilfe ich die Filtereinstellung anpassen möchte. Meine Daten befinden sich in "$B$10:$CE$1354".
In der Zelle G9 sind nun z. B. vier Filtereinstellungen möglich (neben "Alles auswählen" natürlich):
2,5
3
3,5
4
Ich habe es geschafft Schaltflächen zu erzeugen und aufgezeichnete Macros diesen Schaltflächen zuzuordnen. Aufgrund dessen, wie die Macros aussehen, probiere ich die Syntax zu verstehen und entsprechend dazuzulernen.
Folgendes funktioniert bzw. habe ich z. B. für G9 geschafft.
Ich habe Schaltflächen für "alle", "2.5", "3", "3.5" und "4" erstellt, die die Filtereinstellung für G9 ändern können.
Wenn ich die Schaltfläche "alle" drücke, werden alle Filtereinstellung gelöscht. Das mache ich so:


Sub i_EM_alle()
ActiveSheet.Range("$B$9:$CE$1354").AutoFilter Field:=6
End Sub

Wenn ich die Schaltfläche "2.5" drücke, dann wird nur der Filter "2.5" eingestellt. Das mache ich so:


Sub i_EMG__2_5()
ActiveSheet.Range("$B$9:$CE$1354").AutoFilter Field:=6, Criteria1:="2,5"
End Sub

Das bedeutet, ich kann also entweder alle Werte darstellen oder die Werte mit nur einer Filtereinstellung, also z. B. nur die Werte "2.5".
Wenn ich nun aber z. B. die Werte "2.5" und "3" angezeigt bekommen will, muss ich wieder die Filtereinstellungen "händisch" einstellen.
Ich will also folgendes:
Wenn ich die Schaltfläche "2.5" anklicke, dann soll:
die Filtereinstellung "2.5" gelöscht werden, wenn die Filtereinstellung "2.5" gesetzt war
oder
die Filtereinstellung "2.5" gesetzt werden, wenn die Filtereinstellung "2.5" gelöscht war
Selbst nach 1,5 Tagen Suchen im Internet und Rumprobieren habe ich es nicht hinbekommen. Ich weiß, dass es xlOr und xlAnd gibt, um die Filtereinstellung zu löschen oder zu setzen. Allerdings habe ich schon mal das prinzipielle Problem, dass ich nicht mal weiß, wie man die aktuelle Filtereinstellung ausliest.
So nach der Art:

aktuelle_Filtereinstellungen = ActiveSheet.Range("$B$9:$CE$1354").AutoFilter Field:=6, Operator:=xlFilterValues
neue_Filtereinstellung = aktuelle_Filtereinstellung + "3.5"
ActiveSheet.Range("$B$9:$CE$1354").AutoFilter Field:=6, Criteria1:=neue_Filtereinstellung , Operator:=xlFilterValues

Kann mir da bitte jemand weiterhelfen?
Vielen Dank schon mal im Voraus!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Dim arrFilter(1 To 4) As String Private Sub CommandButton1_Click() If arrFilter(1) = "" Then arrFilter(1) = "2,5" Else arrFilter(1) = "" Cells(9, 1).CurrentRegion.AutoFilter field:=7, Criteria1:=arrFilter, Operator:=xlFilterValues End Sub Private Sub CommandButton2_Click() If arrFilter(2) = "" Then arrFilter(2) = "3" Else arrFilter(2) = "" Cells(9, 1).CurrentRegion.AutoFilter field:=7, Criteria1:=arrFilter, Operator:=xlFilterValues End Sub Private Sub CommandButton3_Click() If arrFilter(3) = "" Then arrFilter(3) = "3,5" Else arrFilter(3) = "" Cells(9, 1).CurrentRegion.AutoFilter field:=7, Criteria1:=arrFilter, Operator:=xlFilterValues End Sub Private Sub CommandButton4_Click() If arrFilter(4) = "" Then arrFilter(4) = "4" Else arrFilter(4) = "" Cells(9, 1).CurrentRegion.AutoFilter field:=7, Criteria1:=arrFilter, Operator:=xlFilterValues End Sub Private Sub CommandButton5_Click() '---Button Filter zurücksetzen Dim i As Long For i = LBound(arrFilter) To UBound(arrFilter) arrFilter(i) = "" Next Cells(9, 1).CurrentRegion.AutoFilter field:=7 End Sub

Hallo Daniel, hallo Nepumuk
danke für Euren Code.
@Daniel:
Zwei kleine Fehler waren noch enthalten, die ich aber selbst nach etwas Lektüre korrigieren konnte.
Ich habe jetzt mit Deiner Lösung und der Lösung von Nepumuc etwas programmiert, mit dem ich ganz zufrieden bin.
Falls jemand noch einmal ein ähnliches Problem hat, poste ich das jetzt hier:


Option Explicit
Dim arrFilter(1 To 4) As String
Dim Init                            ' das ist eine Krücke, weil man Variablen beim Initialisieren nicht gleich bedaten kann!
Private Sub i_EMG__2_5_Click()
If Init = 0 Then                ' beim ersten Aufruf, alle Filterwerte setzen
Init = 1
arrFilter(1) = "2,5"
arrFilter(2) = "3,0"
arrFilter(3) = "3,5"
arrFilter(4) = "4,0"
End If
With i_EMG__2_5                 '
If .Value Then              ' wurde die Umschaltfläche gedrückt?
arrFilter(1) = "2,5"    ' Ja -> Filtereintrag auswählen
Else
arrFilter(1) = ""       ' Nein -> Filtereintrag löschen
End If
End With
Cells(9, 1).CurrentRegion.AutoFilter field:=6, Criteria1:=arrFilter, Operator:=xlFilterValues       ' Filter anwenden
End Sub
Private Sub i_EMG__3_0_Click()
If Init = 0 Then
Init = 1
arrFilter(1) = "2,5"
arrFilter(2) = "3,0"
arrFilter(3) = "3,5"
arrFilter(4) = "4,0"
End If
With i_EMG__3_0
If .Value Then
arrFilter(2) = "3,0"
Else
arrFilter(2) = ""
End If
End With
Cells(9, 1).CurrentRegion.AutoFilter field:=6, Criteria1:=arrFilter, Operator:=xlFilterValues
End Sub
Private Sub i_EMG__3_5_Click()
If Init = 0 Then
Init = 1
arrFilter(1) = "2,5"
arrFilter(2) = "3,0"
arrFilter(3) = "3,5"
arrFilter(4) = "4,0"
End If
With i_EMG__3_5
If .Value Then
arrFilter(3) = "3,5"
Else
arrFilter(3) = ""
End If
End With
Cells(9, 1).CurrentRegion.AutoFilter field:=6, Criteria1:=arrFilter, Operator:=xlFilterValues
End Sub
Private Sub i_EMG__4_0_Click()
If Init = 0 Then
Init = 1
arrFilter(1) = "2,5"
arrFilter(2) = "3,0"
arrFilter(3) = "3,5"
arrFilter(4) = "4,0"
End If
With i_EMG__4_0
If .Value Then
arrFilter(4) = "4,0"
Else
arrFilter(4) = ""
End If
End With
Cells(9, 1).CurrentRegion.AutoFilter field:=6, Criteria1:=arrFilter, Operator:=xlFilterValues
End Sub
Private Sub i_EMG__alle_Click() '---Button Filter zurücksetzen
' wird nicht verwendet
Dim i As Long
'    For i = LBound(arrFilter) To UBound(arrFilter)
'        arrFilter(i) = ""
'    Next
arrFilter(1) = "2,5"
arrFilter(2) = "3,0"
arrFilter(3) = "3,5"
arrFilter(4) = "4,0"
Cells(9, 1).CurrentRegion.AutoFilter field:=6
End Sub

Ich habe das jetzt (wie von Nepumuk vorgeschlagen) mit Umschaltflächen gelöst, weil ich so sehen kann, ob einFilter gesetzt ist oder nicht.
Wie Du siehst, habe ich noch Schwierigkeiten mit der Initialisierung. vba lässt wohl, wie z. B. C oder C++, bei der Deklaration keine Wertzuweisung zu. Finde ich etwas seltsam...
Nun gut, ich habe das dann mit der Init-Variablen (wahrscheinlich etwas umständlich) gelöst.
Was mir noch nicht gefällt ist, dass beim Öffnen der Exceltabelle die Umschaltflächen irgendwie stehen können. Wenn nicht alle gedrückt sind, dann passt die Initialisierung von arrFilter natürlich nicht mehr.
Man müsste bei der Initialisierung die Stellung der Umschaltflächen abfragen und dann die Werte für arrFilter entsprechend setzen. Oder man schaltet die Filter beim Öffnen der Tabelle alle ein oder aus und setzt dann entsprechend die Werte bei der Initialisierung.
Ich weiß aber weder, wie das eine noch das andere geht und ehrlich gesagt, mag ich jetzt Feierabend machen bzw. in den Urlaub gehen :-)
Danke nochmal, ich habe viel gelernt!
VG
Christian

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Autofilter per vba einstellen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread