Bestimmte Zeilen von Wbook zu Wbook copy
10.08.2021 15:34:13
Wbook
ich versuche gerade Zeilen aus einem Workbook zu einem anderen Workbook zu kopieren.
es soll im ersten Workbook ein Autofilter gesetzt werden und die gefilterten Zeilen in das zweite Workbook, dort wird auch ein Autofilter gesetzt, kopiert werden.
Meine Codeansätze.
Danke für eure Hilfe :)
Sub Geschlossene_Arbeitsmappe()
Dim sPfad As String
Dim wbQuelle As Workbook
'Dateipfad der Quelldatei
sPfad = "C:\Users\PH\Desktop\OC\Januar\Zusammenfassung.xlsx"
'Arbeitsmappe öffnen
Set wbQuelle = Workbooks.Open(sPfad)
'Daten kopieren und einfügen
wbQuelle.Worksheets("Datenbank").Range("A1").AutoFilter 1, "PCS" & Copy 'Zeilen kopieren
'Ziel Workbook
Workbooks("Mfile.xlsm").Worksheets("Alldocument").Range("A1").Autofilter1, "PCS" & pastespecial ' Zeilen einfügen
End Sub