ich hab noch eine Frage. Ich hab eine Datei und jedesmal beim Abspeichern möchte ich noch eine Sicherungskopie davon in einem anderen Verzeichnis haben. Ist das möglich?
mfg martin
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.SaveAs FileName:="C:\PFAD\Mappe1.xls"
MsgBox "x"
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.SaveAs FileName:="C:\PFAD\Mappe1.xls"
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableEvents = False
ThisWorkbook.SaveAs FileName:="C:\PFAD\Mappe1.xls"
Application.EnableEvents = True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.SaveCopyAs FileName:="C:\PFAD\Mappe1.xls"
End Sub