Hat jemand eine Idee für mich ?
Ich möchte eine geöffnete Excel-Datei vor dem Schließen als Sicherung an einen bestimmten Ort sichern UND die Datei schließen und speichern.
Danke für jeden Tip
mfG Kraus
Sub Auto_Close
ActiveWorkbook.Save
Dim sPath As String
sPath = Y:\usw.
oder wenn die Werte in einer excel Tabelle stehen
sPath = Range("was auch immer").Value & ".xls"
ActiveWorkbook.SaveAs sPath
ActiveWorkbook. Close
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Const BackupPath = "D:\Backup.xls"
'Ist dies die Backup-Datei? ja, dann abbrechen
If ThisWorkbook.FullName = BackupPath Then Exit Sub
ThisWorkbook.SaveCopyAs Filename:=BackupPath
End Sub