Hallo beisammen,
ich möchte eine Datei "Kontierungshilfe_TEST" unter einem anderen Namen ("_TEST2") auf einem anderen Laufwerk speichern:
Dim wb1 As Workbook
Set wb1 = ThisWorkbook '(= Konterungshilfe_TEST.xls)
If Dir("G:\Extern\Kontierungshilfe\Kontierungshilfe_TEST2.xls") "" Then
Kill "G:\Extern\Kontierungshilfe\Kontierungshilfe_TEST2.xls"
Else
End If
'Hier wird Kopie der Kontierungshilfe_TEST.xls zum ActiveWorkbook !!!
wb1.Add.SaveAs "G:\Extern\Kontierungshilfe\Kontierungshilfe_TEST2.xls"
Leider bricht Excel mit der Meldung "Objekt unterstützt diese Eigenschaft oder Methode nicht" ab und markiert "wb1.Add.SaveAs ...". Nehme ich das "Add" weg,läuft der Code weiter, allerdings wird dann die Originaldatei "_TEST" geschlossen, und das soll nicht sein. Wie kriege ich das also hin?
Im weiteren Verlauf des Codes soll die Kopie "Kontierungshilfe_TEST2" wieder geschlossen werden:
Workbooks("G:\Extern\Kontierungshilfe\Kontierungshilfe_TEST2.xls").Close SaveChanges:=True
funktioniert leider auch nicht. Was ist denn hier noch falsch?
Für Eure Hilfe im voraus besten Dank.
Gruß
Torsten