Speichern einer Datei mi Umlauten
11.04.2008 10:37:00
Patric
mit dem folgende Script speichere ich eine Datei unter einem anderen Namen:
AWS = ThisWorkbook.FullName
AWS = Environ("Temp") & "/Spesen_" & Range("B3") & "_" & Format(Now, "YYYYMMDD") & "_" & Format(Now, "hhmmss") & ".xls"
ThisWorkbook.SaveCopyAs AWS
später wird die Datei nachmals geöffnet und bearbeitet. Zum 2. Speichern verwende ich folgendes Script:
AWS = ThisWorkbook.FullName
AWS = Environ("Temp") & "\" & Mid(ThisWorkbook.Name, 1, Len(ThisWorkbook.Name) - 4) & "_bearbeitet.xls"
ThisWorkbook.SaveCopyAs AWS
das funtionert auch soweit gut. wenn ich aber im Feld B3 einen Namen mit Umlauten habe z.B Müller funktioniert das 2. Script nicht mehr richtig. Richtig sollte es so aussehen:
Spesen_Müller_20080401_100238_bearbeitet.xls es wird aber so ausgegeben:
Spesen_Müller_20080401_100238_bearbeit
Woran kann das liegen? Wie kann ich das Script umschreiben so das es auch mit Umlauten klarkommt?
Danke für Eure Hilfe
Patric