Hallo Zusammen
beim öffnen einer Datei hole ich mir Daten aus einer anderen Datei.
Workbooks.Open Filename:="I:\Werkzeuge\Werkzeuge_Neu_1.xls"
Range("A:A,B:B,C:C,D:D,F:F").Select
Range("F1").Activate
Selection.Copy
Windows("Werkzeugreparatur_Auftrag.xls").Activate
Sheets("Equipmen").Select
ActiveSheet.Paste
Workbooks("Werkzeuge_Neu_1.xls").Close
Datei wird hiermit unter einem anderen Namen abgespeichert.
dName = Worksheets("Datenblatt").Range("C5") & "-" & Range("C3")
ActiveWorkbook.SaveAs Filename:="I:\Werkzeugreparatur\WZR_Auftrag\" &
dName ' nimmt Name für die Datei aus Zelle ( C5 + C3 )
Wenn ich die geänderte Datei jetzt öffne bekomme ich eine Fehlermeldung, weil die Datei nicht mehr "Werkzeugreparatur_Auftrag.xls" heist.
Wie muss ich den Code ändern, damit der Fehler nicht mehr auftritt?
Werner