Hi Leute,

ich versuche gerade eine einzelne Spalte aus einer gefilterten Liste in ein anderes Tabellenblatt zu kopieren. Dafür nutze ich diesen Code:

Sub Kopieren()

    Dim Original As Worksheet
    Dim Ziel As Worksheet
    Dim lngZeilen As Long
   
    Set Original = ActiveWorkbook.Sheets("Original")
   
    lngZeilen = Original.Cells(Rows.Count, 1).End(xlUp).Row
   
    Original.Range("A1:O1").AutoFilter Field:=6, Criteria1:=Array("4380", "4964", "4970")

    Original.Range("A1:A" & lngZeilen).SpecialCells(xlCellTypeVisible).Copy
    Ziel.Range("A3").PasteSpecial xlPasteValues
    
End Sub

Leider erhalte ich in dieser Zeile den Fehler "Objekt erforderlich"

Original.Range("A1:A" & lngZeilen).SpecialCells(xlCellTypeVisible).Copy

Kann jemand helfen? :)