Supportnet / Forum / Tabellenkalkulation

Hallo Excelspezialisten, beim schliesen der Datei wird automatisch durch den Cote eine Kopie erzeugt, ich hätte aber gerne auch den Pfad noch festgelegt. Ich hoffe ihr könnt mir helfen! Gruß fedjo Option Explicit Private Sub workbook_Beforeclose(Cancel As Boolean) ´Erstellt eine Sicherungskopie der aktiven Arbeitsmappe unter einem neuen Dateinamen ´durch Ausführen der Methode SaveCopyAs. Der neue Name bekommt den Zusatz Backup angefügt Dim FName As String Dim OldComment As String ´sichert die Kommentare zur Originaldatei OldComment = ActiveWorkbook.Comments ´Fügt neue Kommentare zur Sicherungskopie hinzu ActiveWorkbook.Comments = "Sicherungskopie von " & _ ActiveWorkbook.Name & _ ", erstellt von der Backup-Prozedur." ´Name für die Sicherungskopie aus dem Namen der Originaldatei bilden FName = Left(ActiveWorkbook.Name, _ InStr(ActiveWorkbook.Name, ".")) & _ "(backup).xls" ActiveWorkbook.SaveCopyAs Filename:=FName ActiveWorkbook.Comments = OldComment ´Wiederherstellen der alten Kommentare End Sub

Salve,
so sollte es funzen:

ActiveWorkbook.SaveCopyAs FileName:="C:\hierhin\" & FName

"C:\hierhin\" muß natürlich auf Deinen Zielordner angepasst werden
mfg
schnallgonz

Hallo schnallgonz,
super es funktioniert.

Danke

mfg
fedjo

• Excel schließen (VBA)
• Excelmappe an mehrere Emailadressen versenden?
• Laufzeitfehler 1004 bei Methode 'UpdateLink'
• Hilfe zur UserForm
• VBA - Pfadangabe