Personal.xlsb sichern
19.08.2015 14:27:00
Jan
Habe mal im Archiv gesucht und möchte genau wie in einem anderen Thread der bereits vorhanden ist meine personal.xlsb auf ein anderes Laufwerk sichern beim schließen.
Hier der Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.SaveCopyAs "H:\sonstiges\PersonalSave\Personal_" & Format(Now, "DDMMYYYYhhmmss") _
& ".xlsb"
End Sub
Habe auch die im Archiv vorhandene Variante mit "me" statt "ThisWorkbook" ausprobiert, allerdings taucht keine Datei in angegebenem Ordner auf. Der Ordner existiert auch bereits, ich wüsste nicht woran der Fehler liegt, bin aber auch grade mal Neuling in VBA. Wenn wer eine Idee hat, immer her damit.Danke euch und Gruß,
Jan