Ich selektiere die Tabelle nach einzelnen Feldern via Autofilter.
Diese wähle ich aus und kopiere sie in ein Extrasheet. Leider geht dabei die Performance verloren und das Makro läuft sehr langsam. Weiß jemand eine bessere Lösung ?
Hier ist der Quelltext :
Windows("T_Makro_KonzOSSV1_34.xls").Activate
Windows("Rohling_Konzern_OSS_01.08.2002.xls").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("down_gesamt").Select
ActiveWindow.SmallScroll Down:=0
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="An 1.Level"
Range("A:M").Select
Selection.Copy
Sheets("org").Select
Sheets.Add
Sheets("Tabelle9").Select
Sheets("Tabelle9").Name = "An 1.Level persönlich"
ActiveSheet.Paste
Gruß Andreas