Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1592to1596
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
Inhaltsverzeichnis

Excel Makro Sicherheitskopie

Excel Makro Sicherheitskopie
24.11.2017 10:08:03
Julia
Einen schönen guten Morgen an alle,
bin mal wieder verzweifelt und wende mich hilfesuchend an euch.
Mein Problem ist, ich möchte, dass beim Öffnen einer Excel Datei automatisch eine Sicherheitskopie dieser Datei in einen Ordner „Daten“ mit Datum im Dateinamen erzeugt wird.
Bin zwar in Google zu diesem Thema fündig geworden, habe damit leider kein Erfolg.
Da meine VBA Kenntnisse bescheiden sind, könnt ihr mir das bitte ausführlich erklären.
Würde mich riesig freuen, wenn ihr mir helfen könntet.
Liebe Grüße und vielen Dank im Voraus
Julia

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Makro Sicherheitskopie
24.11.2017 10:31:32
Nepumuk
Hallo Julia,
den Pfad zum Ordner musst du noch anpassen.
Folgendes Makro in das Modul "DieseArbeitsmappe":
Private Sub Workbook_Open()
    Call SaveCopyAs(Filename:="C:\Daten\" & _
        Left$(Name, InStrRev(Name, ".") - 1) & "_" & Format(Date, "yyyy-mm-dd") & ".xlsm")
End Sub

Gruß
Nepumuk
Anzeige
AW: Excel Makro Sicherheitskopie
24.11.2017 10:52:29
Julia
Vielen Dank Nepumuk für die schnelle Antwort, du hast mir sehr geholfen.
AW: Excel Makro Sicherheitskopie
24.11.2017 11:07:48
Julia
Hallo Nepumuk,
wie muss der Code aussehen, wenn noch die Uhrzeit im Dateinamen erscheinen soll.
Mir ist jetzt aufgefallen, dass die Datei mehrmals am Tag geöffnet werden kann.
Gruß Julia
AW: Excel Makro Sicherheitskopie
24.11.2017 11:44:53
Nepumuk
Hallo Julia,
ich hab es mir fast gedacht. Dann so:
Private Sub Workbook_Open()
    Call SaveCopyAs(Filename:="C:\Daten\" & _
        Left$(Name, InStrRev(Name, ".") - 1) & "_" & _
        Format$(Date, "yyyy-mm-dd") & "_" & Format$(Time, "Hh-Nn-Ss") & ".xlsm")
End Sub

Gruß
Nepumuk
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige