schönen Abend. Ich habe mal eine Frage ich würde gerne Tabellenblätter im Quartal per VBA Code als Sicherung in ein Verzeichnis nach Wahl sichern wie kann ich das Bewerkkstelligen für eure hilfe schon mal ein danke vorab.
Gruß
Hans-Joachim
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim rngDatumletzteSicherung As Range
Set rngDatumletzteSicherung = Sheets("Tabelle1").Range("A1")
If rngDatumletzteSicherung.Value
es wird jedesmal ausgeführt, wenn die Datei geschlossen wird.
dabei wird geprüft, wie lange das Datum der letzen Änderung zurückliegt, liegt es länger als 3 Monate zurück, wird die Datei gespeichert. Als variabler Dateiname wird der aktuelle Monat verwendet.
das Datum der Letzen Änderung wird in TABELLE1 Zelle A1 gespeichert (das kannst du natürlich ändern, muss halt im Makro entsprechend angepasst werden).
Das ganze funktioniert aber nur, wenn mit der Datei auch regelmäßig gearbeitet wird.
Ein Excel-Makro, daß bei einer geschlossenen Datei eine Datensicherung durchführt, gibt es nicht.
damit bei einer Verspäteten Datensicherung das Sicherungsdatum nicht schleichend wegdriftet, wird immer so getan, als würde die Datensicherung am Monatsersten passieren.
Gruß, Daniel