ich habe mittels eines Buttons eine BackupFunktion meiner Excel-Datei eingebaut, die mir die geöffnete Datei im Ordner "Archiv" mit dem Datumszusatz im Dateinamen abspeichert. Nun möchte ich die Datei zusätzlich unter einem anderen Namen (aktueller Name_xy.xls") noch an einem anderen Ort (X:\Dateien\XY\ ) abspeichern. Könnt ihr helfen, den Code zu erweitern?
Private Sub CommandButton1_Click()
Const sPath As String = "X:\Dateien\Archiv\"
With ActiveWorkbook
.SaveCopyAs sPath & Format(Now, "YYYY-MM-DD") & "_" & .Name
End With
End Sub