Sicherungskopie
02.02.2019 14:11:52
Toni
dieser nette Code macht eigentlich schon alles. Jetzt wäre nur noch wünschenswert, dass nicht die ganze Mappe sondern nur das Tabellenblatt "Hühner" als Sicherungskopie hinterlegt wird, während die Mappe selbst ganz normal wie ohne Sicherung gespeichert wird. So hätte ich einen Versionenverlauf für diese Tabelle.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Me.SaveCopyAs "C:\Users\Wilk\Documents\Neuer Ordner\Sicherungskopie\" & "Hühner" _
& Format(Now, "dd.mm.yyyy_hh.mm.ss") & "_" _
& Application.UserName & "_" & Me.Name
End Sub
Grüße
Toni