Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sicherungs-Datei, automatisch

Forumthread: Sicherungs-Datei, automatisch

Sicherungs-Datei, automatisch
31.01.2007 15:15:38
Dieter
Gibt es eine Möglichkeit, beim schließen von Excel automatisch eine Sicherungsdatei der Arbeitsdatei zu erzeugen ?
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sicherungs-Datei, automatisch
31.01.2007 15:20:42
Rudi
Hallo,
ja.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
AW: Sicherungs-Datei, automatisch
31.01.2007 15:21:44
Rudi
Hallo,
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
AW: Sicherungs-Datei, automatisch
31.01.2007 16:10:33
Dieter
Hallo Rudi,
herzlichen Dank für Deinen(Ihren) Knigge Hinweis, bin davon ausgegangen, dass der "Anmeldename" automatisch eigefügt wird. Bitte um Entschuldigung. Leider nützt mir Ihr(Dein) Hinweis nichts. Sind sensible Daten.
Trotzdem besten Dank
Dieter
Anzeige
AW: Sicherungs-Datei, automatisch
31.01.2007 17:42:28
Rudi
Hallo,
im entsprechenden Workbook unter DieseArbeitsmappe:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.SaveCopyAs "c:\Sicherung\" & ThisWorkbook.Name
End Sub

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Anzeige
AW: Sicherungs-Datei, automatisch
31.01.2007 17:49:18
Werner
Hallo Dieter
1 Möglichkeit ein Code aus dem Forum, man kan auch im Archiv suchen.
Sicherheitskopie
Datei wird im selben Verzeichnis gespeichert.
Der Dateiname bekommt das Datum und die Uhrzeit angehangen.
code in "Diese Arbeitsmappe"
Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.SaveCopyAs Filename:=Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - 4) & "_" & Format(Now, "YYYYMMDDhhmmss") & Right(ActiveWorkbook.FullName, 4)
End Sub

Tschüs Werner
Anzeige
AW: Sicherungs-Datei, automatisch
31.01.2007 20:30:45
Dieter
Vielen Dank für die Info's.
Bringen mich weiter.
Danke
Dieter
AW: Sicherungs-Datei, automatisch
31.01.2007 20:30:50
Dieter
Vielen Dank für die Info's.
Bringen mich weiter.
Danke
Dieter
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige