Microsoft Excel

Herbers Excel/VBA-Archiv

Autofilter auf mehreren Blättern setzen / abschalt

Betrifft: Autofilter auf mehreren Blättern setzen / abschalt von: Frank Tesch
Geschrieben am: 13.09.2014 19:42:42

Hallo,

ich habe eine Arbeitsmappe mit ca. 20 Blättern.

Nun möchte ich mit einem Makro auf allen Blättern den Autofilter ab der Reihe A2 für alle Blätter einschalten und mit einem anderen Makro wieder ausschalten.

Welcher Experte kann helfen?

MfG

Frank

  

Betrifft: Autofilter auf mehreren Blättern setzen / abschalt von: Hajo_Zi
Geschrieben am: 13.09.2014 19:55:18

Hallo Frank,

Option Explicit
Sub AutofilterEin()
    Dim WsTabelle As Worksheet
    For Each WsTabelle In Sheets
        If Not WsTabelle.AutoFilterMode = True Then WsTabelle.Range("A2").Autofilter
    Next WsTabelle
End Sub

Sub AutofilterAus()
    Dim WsTabelle As Worksheet
    For Each WsTabelle In Sheets
        If WsTabelle.AutoFilterMode = True Then WsTabelle.Range("A2").Autofilter
    Next WsTabelle
End Sub
GrußformelHomepage


 

Beiträge aus den Excel-Beispielen zum Thema "Autofilter auf mehreren Blättern setzen / abschalt"