Spezialfilter als Makro ausführen
13.09.2014 09:37:14
Andrea
ich habe einen Spezialfilter als Makro aufgenommen. Da ich mehrere Tabellenblätter habe in denen ich jeweils diese Spezialfilter anwenden möchte, wollte ich alle Spezialfilter unter einem Makro haben.
Das Problem ist, dass der Spezialfilter anscheinend nur in einem aktiven Tabellenblatt ausgeführt werden kann. sprich wie bekomme ich es hin, dass der Spezialfilter z.B. vom ersten Tabellenblatt ausgeführt werden kann und dann aber in die anderen Tabellenblätter entsprechend filtert und kopiert. Hier mal der Makrocode
Sheets("Blatt1").Columns("A:K").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Blatt1").Range("O6:Q7"), CopyToRange:=Range( _
"B1:E1"), Unique:=False
End Sub
Sheets("Blatt1").Columns("A:K").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Blatt1").Range("O10:Q11"), CopyToRange:=Range( _
"B1:E1"), Unique:=False
End Sub
LG, Andrea