speichern und alte Datei wieder öffnen

[kingkong]

erstmal ein freundliches Hallo an Euch

und nun die Frage 

besteht die Möglichkeit die aktuelle Mappe zu speichern unter einem anderen Namen auf einem anderen Laufwerk.
Die dann zu schliessen und die alte Mappe wieder öffnen.

die alte Mappe wird aber immer unter dem Datum gespeichert.


habe dies mit dem Makrorekorder aufgezeichnet 

         ChDir "E:\Anzeige"
    ActiveWorkbook.SaveAs Filename:= _
        "E:\Anzeige\heute.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    ActiveWorkbook.Close


dies habe ich im Netz gefunden aber es funktioniert nicht

    Application.RecentFiles(1).Open

[Fennek]

Hallo,

geht das?

Code:

Debug.Print Application.RecentFiles(2).Path
Application.RecentFiles(2).Open

mfg

[kingkong]

leider nein

[RPP63]

Moin!
Nicht .SaveAs
sondern .SaveCopyAs

Du siehst die Kopie nicht!
Sie wird folglich gar nicht geöffnet.
ThisWorkbook bleibt weiter geöffnet.

Gruß Ralf

[kingkong]

Sub Rotationsanzeige()
'
' Rotationsanzeige Makro
'

'
        ActiveWorkbook.SaveCopyAs Filename:= _
        "E:\Anzeige\heute.xlsm", _
        ActiveWorkbook.Close
   
End Sub


Syntaxfehler 

[RPP63]

Bei mir funktionierte
ThisWorkbook.SaveCopyAs "I:\Kopie.xlsm"
problemlos.