Hallo zusammen
Bin ein Anfänger und bräuchte unbedingt eure Hilfe und zwar habe ich mit Hilfe eines Youtube Videos es geschafft die Daten einer Excel Tabelle aus einem definierten Pfad auf meine aktuelle Excel Datei zu übertragen.
Jedoch überträgt es die Daten auf eine neue Tabelle aber ich möchte jedoch, dass es auf die aktuelle Tabelle ab Zelle A2 importiert. Meine Modul sieht wie folgt aus:
Dim Zielarbeitsmappe As Object
Dim quellenarbeitsmappe As Object
Dim pfad As String
Dim datei As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'Wo soll die Tabelle hinzugefügt werden
Set Zielarbeitsmappe = ActiveWorkbook
'Der Pfad wo sich die Tabelle mit den offene Schulungen befindet
pfad = "C:\Users\Max\Desktop\Bildschirm\Test\Neuer Ordner\"
datei = Dir(CStr(pfad & "*.xl*"))
Set quellenarbeitsmappe = Workbooks.Open(pfad & datei, False, True)
quellenarbeitsmappe.Sheets().Copy after:=Zielarbeitsmappe.Sheets(Zielarbeitsmappe.Sheets.Count)
Zielarbeitsmappe.Sheets(Zielarbeitsmappe.Sheets.Count).Name = datei
quellenarbeitsmappe.Close
datei = Dir()
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Set Zielarbeitsmappe = Nothing
Set quellenarbeitsmappe = Nothing
Das fettgedruckte "Copy after:=" müsste man wohl anpassen ..
Kann mir da jemand weiterhelfen ?
Danke im vorraus