Hallo Holger,
nachfolgend mal ein Makro, welches Dir eine Exceldatei, deren Pfad und Name in Zelle B4 steht, öffnet und die Spalten A:H kopiert und in die Ausgangsdatei einfügt.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Sub Daten_kopieren()
Dim wkbQuelle As Object
Set wkbQuelle = GetObject(Sheets("Tabelle1").Range("B4"))
wkbQuelle.Sheets("Tabelle1").Columns("A:H").Copy ThisWorkbook.Sheets("Testdaten1").Range("A1")
wkbQuelle.Close
Set wkbQuelle = Nothing
End Sub Du musst in obigen Code allerdings noch einige Namen anpassen, da mir diese nicht bekannt waren.
In Zeile
Set wkbQuelle = GetObject(Sheets("Tabelle1").Range("B4"))muss der Blattname „Tabelle1“ gegen den Namen ausgetauscht werden, in dem bei Dir der Pfad in Zelle B4 steht.
Dann in der Zeile
wkbQuelle.Sheets("Tabelle1").Columns("A:H").Copy ThisWorkbook.Sheets("Testdaten1").Range("A1")muss wieder der Name “Tabelle1” gegen den Namen ausgetauscht werden, der den zu kopierenden Inhalt der zu öffnenden Datei der Spalten A:H hat.
Ansonsten sollte der Code funktionieren, z.B. bei mir funzt er.
Bei Fragen melde Dich.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]