Autofilter und Copy ohne Select und Activate
23.07.2002 10:45:13
Hajo_SB
wie muß der VBA-Code aussehen, wenn ich auf "Activate" und "Select" verzichten will? Geht das mit der Autofilter-Funktion überhaupt?
Windows("Daten.xls").Activate
Sheets("Tabelle1").Select
Selection.AutoFilter Field:=1, Criteria1:=Nummer
Selection.Copy
Windows("Speichern.xls").Activate
Sheets("Tabelle2").Select
Range("A1").Select
ActiveSheet.Paste
Vielen Dank für Eure Unterstützung.
Gruß Hajo
Anzeige