Hallo zusammen,
ich würde gerne per Knopfdruck Daten von einer Excel-Datei in eine andere schreiben.
Solange beide Dateien im selben Verzeichnis liegen, funktioniert das Ganze auch ohne Probleme. Ich habe hierfür einen "Testcode" geschrieben, welcher wie folgt aussieht:
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set ext_wb = Workbooks.Open(ThisWorkbook.Path & "\Bestellungen Geräte und PCBA.xlsm")
ext_wb.Sheets("NEU").Range("A2:A3").Copy
ThisWorkbook.Sheets("Bestückungen").Range("A20").PasteSpecial
ext_wb.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Sobald ich die Datei, aus der ich die Daten kopieren möchte, in ein anderes Verzeichnis verschiebe funktioniert mein Code leider nicht mehr. Hierfür habe ich den Code bereits etwas angepasst, leider ohne Erfolg:
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set ext_wb = Workbooks.Open(ThisWorkbook.Path & "C:\Users\timo\Desktop\Bestellungen Geräte und PCBA.xlsm")
ext_wb.Sheets("NEU").Range("A2:A3").Copy
ThisWorkbook.Sheets("Bestückungen").Range("A20").PasteSpecial
ext_wb.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Der Fehler tritt immer an der Stelle auf, an der ich die zweite Datei öffnen möchte. Hat jmd. eine Idee was ich falsch mache? Über eine Lösung wäre ich sehr dankbar:)!
Gruß
Timo