1x täglich BackUp erstellen

Forumthread: 1x täglich BackUp erstellen
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: 1x täglich BackUp erstellen

12.04.2021 09:45:12

Hallo zusammen,
ich habe eine größere Datenbank programmiert, in welche verschiedene Leute mit unterschiedlichen Dateien reinschreiben.
Gerne würde ich einmal pro Tag eine Kopie ablegen.
Was ich mir vorstellen könnte, eine Zelle mit dem BackUp-Datum belegen.
Ist das aktuelle Datum beim speichern neuer als das BackUp-Datum, wird zusätzlich eine Kopie abgelegt.
Würdet ihr das auch so lösen?
Und wie frage ich in VBA nur das Datum für die Abfrage ab? Dankeschön =)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: 1x täglich BackUp erstellen

12.04.2021 11:25:33

UweD
AW: 1x täglich BackUp erstellen

12.04.2021 15:02:17

M
Danke für die Rückmeldung (owT)

12.04.2021 15:34:22

UweD

AW: 1x täglich BackUp erstellen

12.04.2021 11:25:33

UweD

Hallo
Versuch es so?
- der Code muss in den Codebereich von "DieseArbeitsmappe"


Private Sub Workbook_Open()
Dim Pfad As String, Datei As String
Pfad = "E:\Excel\Temp\" 'mit \ am Ende
Datei = "Backup_" & Format(Date, "YYYYMMDD_") & ThisWorkbook.Name
If Dir(Pfad & Datei) = "" Then 'Datei noch nicht vorhanden?
ThisWorkbook.SaveCopyAs Pfad & Datei
Else
MsgBox "Backup bereits vorhanden"
End If
End Sub

LG UweD

AW: 1x täglich BackUp erstellen

12.04.2021 15:02:17

Hat perfekt funktioniert!
Dankeschön Uwe!!! =)
Musste noch ThisWorkbook durch ActiveWorkbook ersetzen, und dann hat es auch die richtige Datei gespeichert :)

Danke für die Rückmeldung (owT)

12.04.2021 15:34:22

UweD