Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
944to948
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige