Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Regelmässige Sicherheitskopie/Backup der Arbeitsmappe
zurück: Algorithmus in Excel Makro weiter: Kopieren von Daten mit komplizierten Bedingungen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Tuxli
Excel-Kenner (ohne VBA)


Verfasst am:
17. Apr 2014, 15:05
Rufname:

Regelmässige Sicherheitskopie/Backup der Arbeitsmappe - Regelmässige Sicherheitskopie/Backup der Arbeitsmappe

Nach oben
       Version: Office 2010

Hallo Zusammen,

ich benötige wieder einmal eure Hilfe.

Ich möchte meine Arbeitsmappe regelmässig unter neuem Namen, in einem separaten Verzeichnis abspeichern. Ich weiss nur nicht wie.

Grundsätzlich reicht es aus, wenn einmal pro Monat eine Sicherungskopie erstellt wird. Ob das nun der 1. Tag im Monat ist oder nich spielt keine Rolle.
Am besten wäre es, wenn das Backup/Sicherungskopie beim ersten Öffnen im neuen Monat erstellt wird.

hier meine Wünsche:
- Kopie einmal im Monat
- komplette Datei soll gesichert werden
- Kopien müssen in ein separates Verzeichnis
- Kopie im neuen Monat erstellen wenn die Datei zum ersten mal wieder geöffnet wird.
- Kopie kriegt einen neuen Dateinamen
- Nur einmal pro Monat eine Kopie erstellen

Ich habe keine Ahnung, ob das überhaupt möglich ist.

gruss und Danke jetzt schon für eure Hilfe!
werni
Solala


Verfasst am:
17. Apr 2014, 17:04
Rufname: werni
Wohnort: Ennenda GL

AW: Regelmässige Sicherheitskopie/Backup der Arbeitsmappe - AW: Regelmässige Sicherheitskopie/Backup der Arbeitsmappe

Nach oben
       Version: Office 2010

Hallo

Dieser Code gehört ins Modul DieseArbeitsmappe
Code:
Option Explicit

Private Sub Workbook_Open()
    Dim Datei As String, Pfad As String, Pfad2 As String, Datei2 As String
    Dim strVerzeichnis As String
    Datei = ThisWorkbook.Name
        If IsNumeric(Left(Datei, 4)) Then Exit Sub
            Pfad = ThisWorkbook.Path & "\"
            Pfad2 = Pfad & "Kopien\"
            Datei2 = Format(Date, "YYYY_MM_DD") & Datei
        If Month(Date) <> Month(Format(FileDateTime(Pfad & Datei), "DD.MM.YYYY")) Then
            strVerzeichnis = Pfad2
        If Dir(strVerzeichnis, vbDirectory) = "" Then
            MkDir (strVerzeichnis)
        End If
            ThisWorkbook.SaveCopyAs Filename:=Pfad2 & Datei2
        End If
End Sub


Pfad2 ist derselbe Pfad wie deine Arbeitsmappe und zusätzlich ein Verzeichnis (Kopien). Ist dies noch nicht vorhanden, wird es automaisch erstellt (Musst du halt anpassen). Aber für einen Test sollte es genügen.

Die neue Datei bekommt den Namen aktuelles Datum (JJJJ_MM_TT) und der Name deine Datei.

Gruss werni

_________________
"Die Summe aller Intelligenz auf Erden ist konstant, aber die Anzahl Individuen steigt."
. EINSTEIN
Tuxli
Excel-Kenner (ohne VBA)


Verfasst am:
22. Apr 2014, 16:43
Rufname:


AW: Regelmässige Sicherheitskopie/Backup der Arbeitsmappe - AW: Regelmässige Sicherheitskopie/Backup der Arbeitsmappe

Nach oben
       Version: Office 2010

Hallo Werni,

Danke für deine Hilfe. Ich werde den Code sobald wie möglich ausprobieren.

Gruss
Tuxli
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Tabellenblätter in Arbeitsmappe automatisch beschriften 3 Mattioni 587 09. Aug 2011, 05:15
FCH Tabellenblätter in Arbeitsmappe automatisch beschriften
Keine neuen Beiträge Excel Formeln: Bedingte uebernahme von Zelleninhalt in andere Arbeitsmappe 1 Paul87 581 03. Aug 2011, 22:46
Guenter_Steiner Bedingte uebernahme von Zelleninhalt in andere Arbeitsmappe
Keine neuen Beiträge Excel Formeln: Kombination Summe, Sverweis und über die ganze Arbeitsmappe 6 zioso 993 16. Mai 2011, 16:09
zioso Kombination Summe, Sverweis und über die ganze Arbeitsmappe
Keine neuen Beiträge Excel Formeln: Abhängig von Zelle, ganze Zeile auf neue Arbeitsmappe kopier 15 RickyReichert 607 11. Mai 2011, 16:49
neopa Abhängig von Zelle, ganze Zeile auf neue Arbeitsmappe kopier
Keine neuen Beiträge Excel Formeln: Weinkarte - Verknüpfen von Daten in einer Arbeitsmappe - 15 Renatox100 810 15. Jan 2011, 00:48
Renatox100 Weinkarte - Verknüpfen von Daten in einer Arbeitsmappe -
Keine neuen Beiträge Excel Formeln: Datenabgleich zwischen zwei Tabellen in einer Arbeitsmappe 3 DerMalle81 275 20. Dez 2010, 10:13
DerMalle81 Datenabgleich zwischen zwei Tabellen in einer Arbeitsmappe
Keine neuen Beiträge Excel Formeln: Automatisch ausfüllen , nächste Arbeitsmappe 1 Mynority 693 15. Dez 2010, 12:33
Alterweg Automatisch ausfüllen , nächste Arbeitsmappe
Keine neuen Beiträge Excel Formeln: Hintergrundfarbe in Zelle ändern in anderer Arbeitsmappe 1 Haki 278 20. Sep 2010, 16:50
ChristianL Hintergrundfarbe in Zelle ändern in anderer Arbeitsmappe
Keine neuen Beiträge Excel Formeln: "Zusammenführen" von Feldern in einer Arbeitsmappe 7 wieder-mal-verzweifelt 302 15. Mai 2010, 16:49
wieder-mal-verzweifelt "Zusammenführen" von Feldern in einer Arbeitsmappe
Keine neuen Beiträge Excel Formeln: Wenn Wort in anderer Arbeitsmappe steht, dann kopiere... 0 Toby2010 707 16. März 2010, 18:15
Toby2010 Wenn Wort in anderer Arbeitsmappe steht, dann kopiere...
Keine neuen Beiträge Excel Formeln: dynamischer Verweis auf andere Arbeitsmappe ohne INDIREKT 2 heppi 4142 22. Jan 2010, 19:08
Gast dynamischer Verweis auf andere Arbeitsmappe ohne INDIREKT
Keine neuen Beiträge Excel Formeln: Arbeitsmappe öffnen dauert ewig. Wie verbessern? 6 Gast 2426 08. Jul 2009, 15:15
Bernd d.R. Arbeitsmappe öffnen dauert ewig. Wie verbessern?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks