AW: Kompatibilität
01.09.2005 16:16:32
Tinu
Habe mich versucht etwas schlau zu machen und dabei herausgefunden, dass alle Funktionen, welche erst nach Installation des Analyse-Tools zu verfügung stehen, auf einer anderssprachigen Version nicht funktionieren. Ich habe mir nun aber eine "Übersetzung" eingebaut, welche für Deutsch, Englisch und Französisch funktioniert:
Private Sub Workbook_Open()
' Sprache einstellen
Worksheets("chartdata days").Select
Range("A1:IV65536").Select
Select Case Application.LanguageSettings.LanguageID(msoLanguageIDUI)
Case 1031
Selection.Replace What:="Workday", Replacement:="Arbeitstag", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="Serie.jour.ouvre", Replacement:="Arbeitstag", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False
Case 1033
Selection.Replace What:="Arbeitstag", Replacement:="Workday", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="Serie.jour.ouvre", Replacement:="Workday", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False
Case 1036
Selection.Replace What:="Arbeitstag", Replacement:="Serie.jour.ouvre", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="Workday", Replacement:="Serie.jour.ouvre", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False
End Select
End Sub
Gruss und Dank an alle, die das Problem studiert haben
Tinu