Datumsproblem bei als Werte speichern
10.03.2004 11:59:35
LotharR
trotz intensiver Suche in der Recherche bin ich nicht "ganz" fündig geworden.
Problem:
Eine sehr umfangreiche Tabelle (ca 40 Sheets) mit vielen Formeln, soll aus Performancegründen für Auskunftszwecke als "nur Werte".xls gespeichert werden.
Ich bediene mich dabei eines Code-Schnipsels von Herbert, der bis auf eine Ausnahme tadellos funktioniert.
Hier der Code-Teil:
Sub NURWERTE_Speichern()
Dim wks As Worksheet
Dim sFile As String
Dim sPath As String
Application.ScreenUpdating = False
sPath = ThisWorkbook.Path & "\"
sFile = sPath & "NURWert.XLS"
For Each wks In Worksheets
If Not (wks.Name = "Sheet1" Or wks.Name = "Sheet2") Then
With wks.UsedRange
.Value = .Value
End With
End If
Next wks
ActiveWorkbook.SaveAs sFile
Application.ScreenUpdating = True
MsgBox "Speichern erledigt, die NurWerte-Tabelle ist jetzt aktiv!"
End Sub
Code eingefügt mit Syntaxhighlighter 2.5
Das Problem liegt bei allen Datumswerten. Ich muss dazu sagen, dass ich XP (und auch Office) in der englischen Version nutze, aber mit deutschen Language-Pack, deutschem Tastatur-Layout, und deutscher Datumsformatierung innerhalb von Excel.
Bei allen Zellen, deren Inhalt ein Datumswert ist z.b. 01/03/2004 (also 1. März), werden - nach der Umwandlung in Werte - der Tag und Monat vertauscht, heisst also es wird 03/01/2004 draus (3. Januar). Egal was ich bislang versuchte: alles auf englisch umzustellen, half ebensowenig wie "Mischeinstellungen". ...
Vielleicht hat ja jemand ein ähnliches Problem, bzw. ist Fachmann für Datumswerte.
Vielen Dank schon mal vorab.
Gruss
Lothar