Hallo zusammen,

ich möchte gefilterte Zeilen aus einem Arbeitsblatt in ein anderes einfügen.

Beim Einfügen sollen die vorhanden Zeilen nach unten verschoben werden. Leider bekomme ich es nicht hin.

Muss ich bei

    Range("A10").Select

    ActiveSheet.Paste
noch einen Zusatz wie ".Shift:=xlDown" einfügen?

---------------------------------------------------------------------------------------------------------------------------------------------------------

'
' geplante_Ch_Info Makro
'

'
    Windows("TSM06_Created_2016-05-27_12-00.xls").Activate
    Selection.AutoFilter

    ActiveSheet.Range("$A$2:$Q$" & letzteZeile).AutoFilter Field:=4, Criteria1:= _
        "=bereit zur Genehmigung", Operator:=xlOr, Criteria2:="=Entwurf"
    ActiveWorkbook.Worksheets("Stats").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Stats").AutoFilter.Sort.SortFields.Add Key:=Range( _
        "C2:C" & letzteZeile), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    
        With ActiveWorkbook.Worksheets("Stats").AutoFilter.Sort
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    
ActiveSheet.Range("A3:Q" & ActiveSheet.UsedRange.Rows.Count). _
    SpecialCells(xlCellTypeVisible).Copy
    
    Windows("relevante-Changes_Master.xlsx").Activate

    Range("A10").Select

    ActiveSheet.Paste
    
    Windows("TSM06_Created_2016-05-27_12-00.xls").Activate
    Application.CutCopyMode = False
    Rows("2:2").Select