Hallo,
habe da ein spezielles Excel/VBA-Problem bei dem ich nicht weiterkomme. Ich habe eine Tabelle (Sheet 1)mit 10 Spalten und sehr vielen Zeilen (erste Zeile Spalten-Beschriftung). Nun muß ich die Daten filtern und sortieren (soweit kein Problem). Dann muß ich aber die erste Zeile (mit den Spaltenbeschriftungen) und die ersten 10 Datensätze (also die Top 10) auf ein anderes Blatt (Sheet"2", 2. bis 11. Zeile) kopieren. Da es sich aber um relative Bezüge handelt (da vorher gefiltert) klappt das kopieren bei mir nicht. Kann mir jemand weiterhelfen?
Sheets("Sheet1").Select
Rem Filterauswahl
Selection.AutoFilter Field:=10, Criteria1:="NC"
Rem Sortieren
Range("E2").Select
Range("A1:Y9203").Sort Key1:=Range("E2"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Rem Top 10 ausschneiden und einfügen
Range("A1").Select
Selection.Resize(Selection.Rows.Count + 10, Selection.Columns.Count + 10).Copy
Sheets("Sheet2").Select
Rows("2:2").Select
ActiveSheet.Paste