title image


Smiley In allen Tabellenblättern z.B. in A3:E3 den Autofilter setzen
Hey mromar,



mit folgendem Makro kannst Du in allen Blättern der aktuellen Mappe einen Autofilter setzen (hier: jeweils in A3:E3). Falls die Zellen leer sind, musst Du dort zuvor einen Text (hier: "Text") hineinschreiben, falls die Zellen bereits gefüllt sind, einfach die Zeile aus dem Code löschen :



      

Sub AutofilterSetzen()

    Dim ws

    For Each ws In Worksheets

        'Nächste Zeile löschen, falls in den Zellen bereits etwas drinsteht !

        ws.Range("A3:E3").Value = "Text"

        ws.Range("A3:E3").AutoFilter

    Next

End Sub 

Gruß, JerryB
Bezeichnungen der Elemente eines Excel XP Fensters (Bild, ca. 170 KB).

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: