Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
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
1140to1144
1140to1144
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mappe per Makro sichern

Forumthread: Mappe per Makro sichern

Mappe per Makro sichern
Joachim
Hallo,
ich habe eine Excel-Mappe die im Prinzip jeden Tag geöffnet wird.
Damit ich nicht immer selber daran denken muss, würde ich gerne die komplette Mappe von Zeit zu Zeit
(zum Beispiel alle 10 Tage) sichern. Also alle 10 Tage eine Kopie im selben Verzeichnis mit einer
fortlaufenden Nummer ablegen.
Natürlich würde es auch reichen, die Daten einmal im Monat zu sichern, wenn es die Funktion des Makro
vereinfachen würde. Vielleicht gibt es eine Funktion, die sich immer beim Monatsanfang ausführen liese.
Wie könnte man das machen ?
Danke mal
Joachim
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Mappe per Makro sichern
22.02.2010 12:31:18
{Boris}
Hi Joachim,
benenne eine Zelle als Letzte_Sicherung und eine andere als Zähler.
Dann diesen Code in das Klassenmodul "DieseArbeitsmappe":
Private Sub Workbook_Open()
If Range("Letzte_Sicherung") = "" Or Date - Range("Letzte_Sicherung") > 10 And _
Not ThisWorkbook.FullName Like "*_Sicherung_*" Then
ThisWorkbook.SaveCopyAs ThisWorkbook.FullName & "_Sicherung_" & Range("Zähler") + 1
Range("Letzte_Sicherung") = Date
Range("Zähler") = Range("Zähler") + 1
ThisWorkbook.Save
End If
End Sub
Grüße Boris
Anzeige
Cool, Danke :-)
22.02.2010 13:06:41
Joachim
Hallo Boris,
Vielen Dank, echt coole Sache. :-)
Gruss
Joachim
;

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