Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige