Unicode in Replace-Funktion
Michael
ich brauche ein sich auf Knopfdruck übersetzendes Excel-Sheet. Inhalt ist immer der selbe, bloß die Kunden kommen von überall her, die das lesen sollen.
Mein Code (mit Hilfe aus dem Forum):
[...] ElseIf Sheet1.Range("Language").Value = "Russian" Then
arrSrc = wsDict.Range("D2:D68").Value
For iI = LBound(arrSrc) To UBound(arrSrc)
Sheet1.Range("A1:N500").Replace What:=arrSrc(iI, 1), _
Replacement:=arrFind(iI, 1), LookAt:= _
xlPart, SearchOrder:=xlByColumns, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False, MatchByte:=True
Next
End if
funktioniert, sind die Suchwerte Englisch oder Deutsch. Jetzt muss der aber auch noch Russisch können. Die kyrillischen Wörter als Referenz aus dem Tabellenblatt wsDict als Find-Array zu setzen ist erfolgreich. Sollen diese aber Inhalt des Such-Arrays sein, krieg ich einen Type Mismatch-Fehler.
Excel versteht doch kyrillisch, wenn ich die Suchen-Ersetzen-Funktion aus Excel heraus lade :O
Jemand eine Idee?
Gruß