Wie kann ich beim schleißen der Datei automatisch ein Backup der Datei erstellen lassen. Als Dateizusatz nach einem _ soll das Datum kommen.
Danke für Hilfe,
Daniel
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim fn As String
If IsBackup Then Exit Sub 'nur wenn dies nicht schon eine Backup-Datei ist:
With ThisWorkbook
fn = .Path & "\" & _
Left(.Name, Len(.Name) - 4) & "_" & Format(Date, "yy_mm_dd") & ".xls"
Application.DisplayAlerts = False
.SaveCopyAs fn
Application.DisplayAlerts = True
End With
End Sub
Private Function IsBackup() As Boolean
Dim l As Integer
Dim fn As String
fn = Space(12) & ThisWorkbook.Name
l = Len(fn)
IsBackup = Mid(fn, l - 6, 1) = "_" And _
Mid(fn, l - 9, 1) = "_" And _
Mid(fn, l - 12, 1) = "_"
End Function
With ThisWorkbook
fn = "D:Backup\" & _ '<<<<<< hier anpassen
Left(.Name, Len(.Name) - 4) & "_" & Format(Date, "yy_mm_dd") & ".xls"
Application.DisplayAlerts = False
.SaveCopyAs fn
Application.DisplayAlerts = True
End With
Sub auto_close()
ActiveWorkbook.SaveAs ("d:\siko " & Date & ".xls")
End Sub