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? :)
|