ist es zwingend notwendig das der Code in jedem Blatt steht?
Sofern der wirklich für alle Blätter identisch ist, kann man den in ein Modul auslagern und per for-schleife deine Blätter durcharbeiten.
Sind die Blattnamen bekannt? Ändert sich sonst noch was pro Blatt? z.b. die Quelldatei oder das Quellblatt
Wieso wird A6.B10000 erst ausgefüllt und dann gleich wieder geleert? Wenn du das mit mehreren Blättern machst überschreibst du doch deine Bereiche 15 mal.
Im Code wird das Activesheet als Referenz benutzt. Wenn du das nicht anpasst arbeitet der Code 15mal auf dem selben Blatt.
Wofür die 2 Sekunden Wartezeit? Das hält den gesamten Ablauf auf.
Das mit dem Filter, stimmt das so?
'löscht die Filter in Spalte C und F
ActiveSheet.Range("$A$4:$L$10000").AutoFilter Field:=3
ActiveSheet.Range("$A$4:$L$10000").AutoFilter Field:=6
ActiveSheet.Range("$A$4:$L$10000").AutoFilter Field:=9
'Filtern Makro
ActiveSheet.Range("$A$4:$L$10000").AutoFilter Field:=3, Criteria1:="<>"
ActiveSheet.Range("$C$4:$L$10000").AutoFilter Field:=6, Criteria1:="Maschine"
ActiveSheet.Range("$C$4:$L$10000").AutoFilter Field:=9, Criteria1:="Anlagenstillstand"
|