Thema Datum  Von Nutzer Rating
Antwort
Rot Makrospeicherung verändert Zellformat
17.07.2014 08:33:14 Kerstin
NotSolved
17.07.2014 08:45:09 Gast93709
NotSolved
17.07.2014 09:11:53 Kerstin
NotSolved

Ansicht des Beitrags:
Von:
Kerstin
Datum:
17.07.2014 08:33:14
Views:
1543
Rating: Antwort:
  Ja
Thema:
Makrospeicherung verändert Zellformat

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Makrospeicherung verändert Zellformat
17.07.2014 08:33:14 Kerstin
NotSolved
17.07.2014 08:45:09 Gast93709
NotSolved
17.07.2014 09:11:53 Kerstin
NotSolved