Office: (Office 2010) Mittels VBA alle Filter in einer Arbeitsmappe aufheben

gerryhome · 24. November 2015

Hallo,

ich benötige mal wieder eure Hilfe.
Ich habe eine Arbeitsmappe mit diversen Sheets.
Auf dem ersten Sheet habe rufe ich über ein Button ein Modul auf, mit dem ich die ganze Arbeitsmappe nach bestimmten Kriterien filtere: Hier z.B. die Spalte Kst. Nach 1589

Code:

Code
Sub MakroFiltern()
Range("G7").Value = ""
Selection.AutoFilter Field:=3, Criteria1:="1589"

Worksheets("Tabelle2").Range("A1").AutoFilter _
Field:=3, Criteria1:="1589"
Worksheets("Tabelle3").Range("A1").AutoFilter _
Field:=4, Criteria1:="1589"
Worksheets("Tabelle4").Range("A1").AutoFilter _
Field:=5, Criteria1:="1589"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie man sieht wird auf jeder Arbeitsmappe eine bestimmte Spalte nach einem bestimmten Kriterium gefiltert
Aufheben kann ich den Filter auch wieder mit einem Code

Code:

Sub FilterAufheben()
' Filter aufheben
' aktuelles Blatt
ActiveSheet.Range("$A$11:$F$2500").AutoFilter Field:=3
'weitere Arbeitsblätter
Worksheets("Tabelle2").Range("$A$11:$J$2500").AutoFilter _
Field:=3
Worksheets("Tabelle3").Range("$A$11:$G$2500").AutoFilter _
Field:=4
Worksheets("Tabelle4").Range("$A$11:$G$2500").AutoFilter _
Field:=5
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nun ist es aber so, dass der Anwender die Tabellen auch noch nach anderen Kriterien filtert.
Was ich möchte, ist das ich ein Modul habe, mit dem ich alle gefiterten Spalten in allen Worksheets wieder auf Knopfdruck zurücksetzen kann.

Daran habe ich mich versucht mit diversen Vorschlägen, die ich im Netz gefunden habe, aber keine zufriedenstellende Lösung.

Was als einziges funktioniert ist dieser Code:

Code:

Sub FilterAufheben()
' Filter aufheben
' aktuelles Blatt
ActiveSheet.Range("$A$11:$F$2500").AutoFilter Field:=1
ActiveSheet.Range("$A$11:$F$2500").AutoFilter Field:=2
ActiveSheet.Range("$A$11:$F$2500").AutoFilter Field:=3
ActiveSheet.Range("$A$11:$F$2500").AutoFilter Field:=4
ActiveSheet.Range("$A$11:$F$2500").AutoFilter Field:=5

'weitere Arbeitsblätter
Worksheets("Tabelle2").Range("$A$11:$J$2500").AutoFilter _
Field:=1
Worksheets("Tabelle2").Range("$A$11:$J$2500").AutoFilter _
Field:=2
Worksheets("Tabelle2").Range("$A$11:$J$2500").AutoFilter _
Field:=3
Worksheets("Tabelle2").Range("$A$11:$J$2500").AutoFilter _
Field:=4
Worksheets("Tabelle2").Range("$A$11:$J$2500").AutoFilter _
Field:=5
Worksheets("Tabelle2").Range("$A$11:$J$2500").AutoFilter _
Field:=6

Worksheets("Tabelle3").Range("$A$11:$G$2500").AutoFilter _
Field:=1
Worksheets("Tabelle3").Range("$A$11:$G$2500").AutoFilter _
Field:=2
Worksheets("Tabelle3").Range("$A$11:$G$2500").AutoFilter _
Field:=3
Worksheets("Tabelle3").Range("$A$11:$G$2500").AutoFilter _
Field:=4
Worksheets("Tabelle3").Range("$A$11:$G$2500").AutoFilter _
Field:=5

Worksheets("Tabelle4").Range("$A$11:$G$2500").AutoFilter _
Field:=1
Worksheets("Tabelle4").Range("$A$11:$G$2500").AutoFilter _
Field:=2
Worksheets("Tabelle4").Range("$A$11:$G$2500").AutoFilter _
Field:=3
Worksheets("Tabelle4").Range("$A$11:$G$2500").AutoFilter _
Field:=4
Worksheets("Tabelle4").Range("$A$11:$G$2500").AutoFilter _
Field:=5

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aber es muss doch auch eleganter gehen?
Ich hoffe jemand hat eine zündende Idee für mich.

:)

xlph · 25. November 2015

Code:

Public Sub ResetWorksheetFilterMode()
Dim objWorksheet As Worksheet
With ThisWorkbook
For Each objWorksheet In .Worksheets
If objWorksheet.AutoFilterMode Then _
If objWorksheet.FilterMode Then _
objWorksheet.ShowAllData
Next
End With
Set objWorksheet = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gerryhome · 25. November 2015

Supi, danke für die schnelle Antwort.
Funktioniert perfekt

Office: (Office 2010) Mittels VBA alle Filter in einer Arbeitsmappe aufheben

Mittels VBA alle Filter in einer Arbeitsmappe aufheben

Mittels VBA alle Filter in einer Arbeitsmappe aufheben

Mittels VBA alle Filter in einer Arbeitsmappe aufheben - Similar Threads - Mittels VBA Filter

Zeilen automatisch sperren mittels VBA (wenn Bedingung erfüllt)

mdb automatisiert mittels VBA in accdb konvertieren

PDF mittels VBA speichern (MacOs 13.1)

farbige Zellen mittels Makro berücksichtigen

Login auf Webseite aus VBA mittels Edge

EXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA

Verbindung zu SQL-Server mittels VBA