Kopie der Datei speichern
10.05.2017 10:31:21
Major
habe viel dazu recherchiert, weil Thema vorhanden, aber ich bin zu schlecht um die korrekte Lösung herauszupicken.
Das Makro soll beim Öffnen der Datei eine Kopie der Datei speichern im gewünschten Ordner, im gewünschten Format.
So wie der code hier steht funktioniert es auch, aaaaaaber...
ich will nicht dass die Ursprungsdatei gespeichert wird und ich will nicht dass die Urpsrungsdatei den Namen aus dem code annimmt. Ich will lediglich dass eine Kopie gespeichert wird. Da ich immer schlecht im Erklären bin, hier nochmal:
User öffnet Ursprungsdatei "A" aus dem Ordner "X".
Kopie der Datei "Testfile_dd.mm.yyyy_hh.mm.ss" wird beim Öffnen der Ursprungsdatei "A" automatisch erstellt und im Ordner "...\Testordner\"gespeichert.
Der User bemerkt das Speichern bestenfalls überhaupt nicht. Er befindet sich weiterhin in der Ursprungsdatei "A" im Ordner "X".
Option Explicit
Const strPfad As String = "...\Testordner\"
Sub AutoSave()
'Application.ScreenUpdating = False 'verhindert Bildwechsel
ThisWorkbook.SaveAs strPfad & "Testfile_" & Format(Now, "dd.mm.yyyy") & "_" & Format(Now, "hh. _
mm.ss") & ".xlsm"
End Sub
Gibt es da eine, für mich umsetzbare, Lösung?
Danke euch!
Gruss Major
Anzeige