Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
944to948
944to948
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sicherheitskopien

Forumthread: Sicherheitskopien

Sicherheitskopien
29.01.2008 14:26:00
Waven
Hallo Zusammen
Ich habe eine Datei, die beim öffnen automatisch ein Kopie im Unterordner Siko abspeichert. Mein Problem ist jetzt, dass die Datei sehr gross ist und somit nur 2 Sicherheitskopien abgelegt werden können. Gibt es eine Möglichkeit, dass überprüft wird, ob schon 2 Dateinen im Ordner Siko liegen und wenn ja, dass die ältere gelöscht wird?
Die Sicherheitskopien werden mit Datum und Uhrzeit abgespeichert, wie ihr dem untenstehenden Code entnehmen könnt.
ActiveWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\siko\" & ThisWorkbook.Name & "_" & Format(Now, "dd.mm.yy_hh-mm") & ".xls"
Vielen Dank für eure Hilfe!
Gruss
Waven

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sicherheitskopien
29.01.2008 19:57:34
Daniel
Hi
wie wärs damit:

Sub sicherungskopie()
Dim Pfad As String
Dim DatName As String
Dim Datum As Date
Dim DatLösch As String
Dim Zähler As Integer
Datum = Now + 1
Pfad = ThisWorkbook.Path & "\siko\"
DatName = Dir(Pfad & ThisWorkbook.Name & "*.xls")
Do Until DatName = ""
Zähler = Zähler + 1
If Datum > FileDateTime(Pfad & DatName) Then
Datum = FileDateTime(Pfad & DatName)
DatLösch = DatName
End If
DatName = Dir
Loop
If Zähler > 1 Then Kill (Pfad & DatLösch)
ActiveWorkbook.SaveCopyAs Filename:=Pfad & ThisWorkbook.Name & "_" & Format(Now, "dd.mm.yy_hh- _
mm") & ".xls"
End Sub


Gruß, Daniel

Anzeige
AW: Sicherheitskopien
30.01.2008 14:51:00
Waven
Hallo Daniel
Vielen Dank für deine Hilfe! Ich hatte auch eine Lösung gefunden, aber deine ist einiges eleganter.
Gruss
Waven
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige