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

Sicherung Speichern

Forumthread: Sicherung Speichern

Sicherung Speichern
12.11.2005 01:37:53
Burgel
Hallo Excelfreunde
Ich möchte gerne ein Makro haben, das die aktuelle Arbeitsmappe, unter dem Aktuellen Namen, mit dem Zusatz des Aktuellen Datums, mit dem Format TT-MM-JJJJ im Ordner D:\Sicherungen\ speichert.
Kann mir da jemand helfen.
Mit freundlichen Grüßen Burgel
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Sicherung Speichern
12.11.2005 02:26:51
Franz
Hallo Burgel,
folgendes Makro sichert die Datei und öffnet die Originaldatei wieder.

Sub DateiSichern()
' DateiSichern Makro
Dim Pfad As String, Datei1 As String, Datei2 As String
If ActiveWorkbook.Saved = False Then 'Originaldatei wurde noch nicht gespeichert!
ActiveWorkbook.Save
End If
Datei1 = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name 'Name Originaldatei
Pfad = "D:\Sicherungen" 'Pfad zur Sicherung
Datei2 = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & Format(Now, "DD-MM-YYYY") & ".xls"
ActiveWorkbook.SaveAs Filename:=Pfad & "\" & Datei2 _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close 'gesicherte Datei schließen
Workbooks.Open Filename:=Datei1 'Originaldatei wieder öffnen
End Sub

Gruß
Franz
Anzeige
AW: Sicherung Speichern
12.11.2005 02:59:18
Burgel
Hallo
Herzlichen Dank
Genau das was ich wollte
Mit freundlichen Grüßen Burgel
;

Beliebteste Forumthreads (12 Monate)

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