Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
840to844
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sicherheitskopie mit anderem Pfad speichern

Sicherheitskopie mit anderem Pfad speichern
02.02.2007 18:12:01
Klaus
Hallo liebe Excelkünstler!
Mit unten stehendem Makro kann ich meine Sicherheitskopie nur im gleichen Ordner speichern.
Leider schaffe ich es nicht hier einen beliebigen Pfad einzufügen. Kann mir da jemand helfen?
Danke im Voraus
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

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

Betreff
Datum
Anwender
Anzeige
AW: Sicherheitskopie mit anderem Pfad speichern
02.02.2007 18:30:37
IngGi
Hallo Klaus,
so wird die Datei in "C:\Temp\" gespeichert:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.SaveCopyAs Filename:="C:\Temp\" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) _
& "_" & Format(Now, "YYYYMMDDhhmmss") & Right(ActiveWorkbook.Name, 4)
End Sub
Gruß Ingolf
danke, klaus
02.02.2007 18:51:53
Klaus
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige