Formate verändern sich beim Kopieren
20.10.2004 11:37:46
Peter
mit nachstehendem Code lagere ich die 3 angesprochenen Tabellen in eine Datei aus und lösche sie in der Ursprungsdatei....anschliessend hole ich mir mit einem anderen Code die Tabellen wieder in meine Urspungsdatei zurück.....dies klappt auch bestens.....jedoch habe ich in den Zellen wo vorher Euro-Beträge standen, plötzlich Dollar-Beträge, also so
vorher: 1.250,00
nachher: $1,250.00
wie kann ich das verhindern?
Sub Auslagern()
Application.ScreenUpdating = False
Sheets("finanzdaten").Visible = True
Sheets("kunden").Visible = True
Sheets("Start").Visible = True
Dim myWorksheet As Worksheet
Sheets(Array("kunden", "finanzdaten", "Start")).Copy
For Each myWorksheet In ActiveWorkbook.Worksheets
myWorksheet.UsedRange = myWorksheet.UsedRange.Value
ActiveWorkbook.Sheets("finanzdaten").Visible = xlVeryHidden
ActiveWorkbook.Sheets("kunden").Visible = xlVeryHidden
Next
Call setzen
ActiveWorkbook.SaveAs "C:\BBB\bbbkunden\" & UserForm5.TextBox2.Value
ActiveWorkbook.Close
Workbooks("bbb FinCheck.xls").Activate
Application.DisplayAlerts = False
Sheets(Array("kunden", "finanzdaten", "Start")).Delete
ThisWorkbook.Saved = True
Application.ScreenUpdating = True
End Sub
Vielen Dank für Hilfe
Peter S.