Formel ergänzen
01.06.2006 10:33:27
Konni
ich habe die Frage schon einmal gestellt, aber leider keine Antwort erhalten. Daher nochmal.
Unten stehender Code bewirkt, dass beim Öffnen der Mappe eine Sicherungskopie erstellt wird, mit Username, Datum und Uhrzeit.
Dies müllt natürlich die Festplatte zu, wenn vergessen wird ganze alte Sicherungskopien zu löschen.
Ich möchte aber nur 10 Sicherungskopien auf der Festplatte speichern, d.h., wenn eine neue Kopie gefertigt wird, automatisch dafür die mit dem ältesten Datum gelöscht wird.
Frage: Wie muss der Code modifiziert werden?
Tausend Dank für Eure Hilfe!!
Viele Grüße
Konni
Private Sub Workbook_Open() Dim StDatei As String
Dim StPhad As String
StDatei = ThisWorkbook.Name
StPhad = ThisWorkbook.Path
Dim Fso As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
If Fso.FileExists(StPhad & "\" & Format(Now, "DD.MM.YY") & " - " & Format(Now, "hh-mm") & " - " & _
Application.UserName & _
" - " & StDatei) Then
Kill StPhad & "\" & Format(Now, "DD.MM.YY") & " - " & Format(Now, "hh-mm") & " - " & _
Application.UserName & " - " & StDatei
End If
ActiveWorkbook.SaveCopyAs Filename:=StPhad & "\" & Format(Now, "DD.MM.YY") & " - " & Format(Now, "hh-mm") & " - " & _
Application.UserName & _
" - " & StDatei
DaZeit = "0:15:00"
ThisWorkbook.Worksheets("Maßnahmen 2006").Range("h1") = CDate(DaZeit)
Zeitmakro
End Sub
Anzeige