Euro Format Phänomen - Blatt speichern
26.01.2021 08:42:39
Timo
ich habe bis gestern Nacht rumprobiert, aber ich komme nicht weiter, evtl. habt ihr eine Lösung.
Mit folgendem Code speichere ich ein Tabellenblatt einzeln separat ab:
Sub Blatt_separat_speichern()
Dim wbkNeu As Workbook
Dim vntPathAndFile As Variant
Application.DisplayAlerts = False
ChDrive "C:\"
ChDir "C:\Downloads\"
Set wksA = ActiveSheet
vntPathAndFile = Application.GetSaveAsFilename( _
InitialFileName:=Range("A1") & ".xlsx", _
FileFilter:="Excel Files(*.xlsx), *.xlsx", _
Title:="Speichern als")
Application.DisplayAlerts = False
If Not vntPathAndFile = False Then
wksA.Copy
Set wbkNeu = ActiveWorkbook
Dim iWks As Integer
iWks = ActiveSheet.Index
Worksheets(iWks).Buttons.Delete ' Löscht die vorhandenen Makros
wbkNeu.SaveAs vntPathAndFile
wbkNeu.Close
Application.DisplayAlerts = True
Sheets("Tabelle1").Activate
MsgBox "Blatt wurde separat gespeichert!", , " Hinweis für " & Application.UserName
Else
MsgBox "Speichervorgang Abgebrochen!", , " Hinweis für " & Application.UserName
Application.DisplayAlerts = True
End If
End Sub
Wenn ich dann die neue einzelne Datei aufrufe, dann ist das Euro Format verändert ( Zeichen vorn und keine Minuswerte) und ich kann das ursprüngliche Format vor dem Speichern auch sichern so oft ich will, nach dem Speichervorgang macht Excel daraus sein eigenes Format.
Habt ihr vielleicht eine Idee? Ich habe eine Beispieldatei beigefügt:
https://www.herber.de/bbs/user/143316.xlsm
damit ihr euch das Ergebnis bei Bedarf einmal anschauen könnt.
Vielen Dank für eure Hilfe. VG Timo