Autofilter mit VBA in mehreren Blättern

i für einen bestimmten Artikel in mehr als ein Blatt filtern möchten zB „Harry“Autofilter mit VBA in mehreren Blättern

Mein Makro sagt nicht, dass ich falsch bin, aber es passiert nichts ..

Sub New_Marko_for_selection() 

Worksheets("Sheet53").Range("A1:D4").AutoFilter,Criteria1:="Harry" 

end sub

Mit freundlichen Grüßen

Quelle

2016-10-20 Atlantikdiver

Sie Schleife hier benötigen. Loop sollte das erforderliche Blatt durchlaufen. –

Seltsam, du hast verifiziert, dass "Harry" in diesem Bereich existiert und nichts passiert? Was passiert, wenn Sie dies tun, 'Arbeitsblätter (" Sheet53 "). Bereich (" A1: D4 "). AutoFilter, Criteria1: =" Harry * "'? –

Wenn ich dies tue, wird der Filter nicht auftauchen, so dass nichts passiert ... – Atlantikdiver

ist hier typische Code Autofilter auf mehrere Blätter gelten:

Sub New_Marko_for_selection() 
    Dim sh As Worksheet 

    For Each sh In Sheets(Array("Sheet1", "Sheet3")) 
     sh.Range("$A$1:$D$4").AutoFilter Field:=1, Criteria1:="Harry" 
    Next sh 
End Sub

Hinweis:

angegeben ich die Spalte
I Liste der erforderlichen Blätter in der Array()

Quelle

2016-10-20 13:55:02

Danke das funktioniert! – Atlantikdiver

Autofilter mit VBA in mehreren Blättern

Antwort

Verwandte Themen