Supportnet / Forum / Tabellenkalkulation
Sicherungskopie fortlaufend nummerieren - wie?
Frage
Hallo!
Eine Datei wird automatisch beim Schließen gespeichert. Jetzt möchte ich in einem anderen Verzeichniss eine fortlaufend nummmerierte Sicherungskopie anlegen.
Z.B.:
W:\sicher\datei_001.xls
W:\sicher\datei_002.xls
W:\sicher\datei_003.xls
W:\sicher\datei_...
Was muss der Eintrag lauten, damit die Datei mit fortlaufender Nummerierung gespeichert wird?
[code]
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime EarliestTime:=ET1, Procedure:="schliessen", Schedule:=False
If ActiveWorkbook.ReadOnly Then
GoTo ende
Else: Call schliessen
End If
ende:
ActiveWorkbook.Close
' Application.Quit
End Sub
[/code]
Vielen Dank und Grüße
Thomas

