Zahlenformat Änderung

[Crazy Tom]

moin zusammen,

zur Sicherung meiner Dateien während dem erstellen und bearbeiten
habe ich mir einen BackUp-Ordner auf Laufwerk D erstellt

in der Personal.xlsb habe ich folgendes Makro zum Speichern

Code:

Sub backup_laufwerk_D() 'speichert Datei mit Datum
    ActiveWorkbook.SaveCopyAs Filename:="D:\A-Backup\" & Format(Now, "YYYYMMDD-hhmm ") & ActiveWorkbook.Name
End Sub

damit wird eine Kopie der Datei mit Datum-Uhrzeit und Name gespeichert
in der Datei habe ich 2 Währungsspalten die als Buchhaltung formatiert sind
so sehen die Spalten im Original aus

   

und wenn ich mir danach die gespeicherte Kopie anschaue,
ist aus der Buchhaltung eine Benutzerdefinierte Formatierung geworden
das €-Zeichen steht linksbündig und negative Werte werden ohne "-" Zeichen in Klammern gesetzt

   

hat da jemand eine Erklärung zu und weiß auch wie ich dieses Verhalten verhindern kann?
ich habe erst gestern die neueste Version 2412 (Build18324.20092) aufgespielt Office365
ob das in der vorherigen Version auch aufgetreten ist, kann ich leider nicht mehr nachprüfen

im Anhang noch die beiden Dateien
einmal im Original und einmal die "gebackupte"  Version

mfg Tom


  Format Test.xlsm (Größe: 9,39 KB / Downloads: 6)
  20241228-0802 Format Test.xlsm (Größe: 9,4 KB / Downloads: 5)

[RPP63]

Moin Tom!
Ich kann das Verhalten nachstellen.
Aus dem Format
_-* #.##0,00 €_-;-* #.##0,00 €_-;_-* "-"?? €_-;_-@_-
wird das (für den englischsprachigen Raum) gültige Format
_(€* #.##0,00_);_(€* (#.##0,00);_(€* "-"??_);_(@_)

Eine Erklärung habe ich nicht.
(vielleicht ist für VBA das Format Buchhaltung zu deutsch )
Es ist aber (natürlich) kein Problem, die beiden Spalten zu markieren und das Buchhaltungsformat zuzuweisen.
Könnte man auch programmatisch machen, dann wäre die Personal.xlsb aber ungünstig.
Da ich aber davon ausgehe, dass Du eher ein Schweizer Taschenmesser willst, ist das wohl kaum eine Lösung.

Gruß Ralf

[Egon12]

Hallo Miteinander,
 
das passiert nur bei ActiveWorkbook.SaveCopyAs.
Du könntest es umgehen, indem du den ursprünglichen Pfad via .FullName in eine Zelle packst. Dann via .SafeAs speicherst und dann den ursprünglichen Pfad aus der Zelle nimmst und wieder speicherst.
 
Wenn du das nicht willst, baue dir ein adäquates benutzerdefiniertes Format.
 
Gruß Uwe

[Crazy Tom]

Hallöchen,

und danke für eure Antworten
tatsächlich handelt es sich nicht nur um 2 Spalten die ich in Buchhaltung formatiert habe
es sind noch ein paar Spalten mehr
in meinem Test konnte ich dieses Verhalten auch mit Währungsformat nachstellen
ich werde also entweder auf das Währungsformat verzichten oder es auf anderen Weg 
mit dem Backup versuchen

soweit erst mal 

mfg Tom