Office: Filtern wenn Filter auf Tabellenblatt gesetzt ist...

Hallo, noch eine Frage,
ich hab mehrere tabellenblätter, auf denen manche gefiltert werden müssen.
den filter hab ich schon mit Makro aufgezeichnet, d.h ich müsste jetzt nur noch die tabellenblätter mittels einer Schleife (die hab ich auch) durchlaufen lassen und dann
wenn ein filter auf diesem blatt besteht, dann (diesen Code bräuchte ich)

jetzt kommt mein Makro


wie müsste dieser Code lauten?

Grüsse aus Bayern
Michael

:)

 

Moin, Michael,

Code:

Oder die Zahl der vorhandenen Zeilen einer Spalte mit der Zahl der sichtbaren über SpecialCells(xlCellTypeVisible) vergleichen - reicht das als Ansatz?

 

Hallo Zusammen,

einfacher wäre es doch, direkt zu prüfen, ob wirklich gefiltert wird.

Also statt
Code:

einfach
Code:

 

Private Sub ComBut_filtern_Click()
' sind verschiedene Tabellennamen MG1; Vomo; MG2....
Dim Wiederholungen As Integer

For Wiederholungen = 1 To Worksheets.Count

Worksheets(Wiederholungen).Select

'If Worksheets(Wiederholungen).FilterMode Then Selection.AutoFilter Field:=4, Criteria1:=""

Next Wiederholungen
End Sub

 

Hallo Michael,

teste mal so:

Code:

 

Hallo Michael,

ich habe auch noch eine Variante:

Code:

 

funktioniert leider auch nicht- Laufzeitfehler 1004
Die Autofiltermethode des Tange-Objektes konnte nicht ausgeführt werden...

aber wo liegt der Fehler??

 

das VBA läuft zwar durch ohne Fehler- aber in den Gewünschten Blättern wird nicht filtriert.....?
an was könnte das liegen?

 

Guten Morgen Ingolf,
leider ist da noch irgendwo ein fehler....
funktioniert leider auch nicht- Laufzeitfehler 1004
Die Autofiltermethode des Range-Objektes konnte nicht ausgeführt werden...

aber wo liegt der Fehler?? kannst mir vielleicht nochmals helfen?
Gruss Michael

 

Hallo Uwe, auch dein Code, irgendwo ist da noch ein fehler...läuft durch- filtriert aber nicht...
lg Michael

 

Hallo Michael,

vielleicht klappt es so:

Code:

 

Vielen Dank, funktioniert
lg aus Bayern