Hallo,
folgendes sehr seltsames Problem entsteht beim "Speichern unter" per Makro:
Ich möchte ein Makro das mir zuerst die aktuelle Version einer Datei speichert, und dann die Datei unter unter neuem Namen mit aktuellem Datum sozusagen als "Stand von heute" an einem anderen Ort speichert. Dann soll die Datei als Anhang in einer Email landen.
Es funktioniert alles soweit, mit folgender Kuriosität:
In meinen Tabellen (Stand von heute) verändert sich das Zellformat, und zwar von "Währung mit Euro" zu einer Benutzerdefinierten Version:
€#.##0,00_);[Rot](€#.##0,00)
Dies ist mein Code:
Sub sichern()
Dim Path1 As String
Dim pathName As String
Dim s As String
Path1 = ThisWorkbook.FullName
pathName = Replace(Path1, ".xlsm", "") 'da unter anderem Namen gespeichert wird, soll das Format erst entfernt werden, später wieder angehängt
s = Dir(Path1)
ActiveWorkbook.Save 'zuerst soll die Datei normal gespeichert werden
If s <> "" Then 'Programm soll nur laufen, wenn neue Datei mit diesem Namen noch nicht existiert
ActiveWorkbook.SaveAs Filename:=pathName & Format(Now, "_YYYYMMDD_hh_mm") & ".xlsm" 'Bei diesr Speicherung verändert sich das Zellformat
Application.Dialogs(xlDialogSendMail).Show
ActiveWorkbook.Close
Else
End If
End Sub
Hat jemand eine Idee woher das kommt, oder wie man das umgehenn kann?
Vielen Dank!
Kerstin
|