Hallo,

habe immer noch Ärger mit dem Code.
Erläuft nicht durch.
Irgendwo ist ein Fehler drin.

Er soll mir 2 Dateien in Mappeversuch1 in das Tab Depotbestand kopieren.
Wenn welche drin sind soll er sie mit 2 Zellen Abstand daunter kopiern.
Hier bleibt er hängen.


Das gibt er als Fehlermeldung


Vielleicht kann mir einer da Helfen.
Danke

Sub KopiereUndAnhaengen()
Dim Quelle1 As Workbook
Dim Quelle2 As Workbook
Dim Ziel As Workbook
Dim Tabelle1 As ListObject
Dim Tabelle2 As ListObject
Dim ZielTabelle As Worksheet
Dim NächsteFreieZeile As Long

' Öffnen Sie die Quell-Arbeitsmappen
Set Quelle1 = Workbooks.Open("C:\Users\pittb\Downloads\Depotbestand\Mappeversuch2.xlsm")
Set Quelle2 = Workbooks.Open("C:\Users\pittb\Downloads\Depotbestand\Mappeversuch3.xlsm")

' Definieren Sie die Intelligenten Tabellen in den Quell-Arbeitsmappen
Set Tabelle1 = Quelle1.Worksheets("Depotbestand").ListObjects("Depotbestand")
Set Tabelle2 = Quelle2.Worksheets("Depotbestand").ListObjects("Depotbestand")

' Öffnen Sie die Ziel-Arbeitsmappe (hier "Mappeversuch1.xlsm")

Set Ziel = Workbooks.Open("C:\Users\pittb\Downloads\Mappeversuch1.xlsm")
Set ZielTabelle = Ziel.Worksheets("Depotbestand")

' Bestimmen Sie die nächste freie Zeile in der Ziel-Tabelle
NächsteFreieZeile = ZielTabelle.Cells(ZielTabelle.Rows.Count, 1).End(xlUp).Row + 2

' Kopieren Sie die Daten aus Tabelle1 in die Ziel-Tabelle ab der nächsten freien Zeile
Tabelle1.DataBodyRange.Copy Destination:=ZielTabelle.Cells(NächsteFreieZeile, 1)

' Aktualisieren Sie die nächste freie Zeile
NächsteFreieZeile = ZielTabelle.Cells(ZielTabelle.Rows.Count, 1).End(xlUp).Row + 2

' Kopieren Sie die Daten aus Tabelle2 in die Ziel-Tabelle ab der nächsten freien Zeile
Tabelle2.DataBodyRange.Copy Destination:=ZielTabelle.Cells(NächsteFreieZeile, 1)

' Schließen Sie die Quell-Arbeitsmappen ohne Speichern
Quelle1.Close SaveChanges:=False
Quelle2.Close SaveChanges:=False

' Speichern Sie die Ziel-Arbeitsmappe (Mappeversuch1.xlsm)
Ziel.Save

' Meldung anzeigen, wenn die Aufgabe abgeschlossen ist
MsgBox "Daten wurden in das Tabellenblatt 'Depotbestand' mit einer freien Zeile zwischen den Daten kopiert."

' Schließen Sie die Ziel-Arbeitsmappe
Ziel.Close SaveChanges:=False
End Sub
Sub KopiereUndAnhaengen()

Gruß Pitt