Unicode in Replace-Funktion

Hallo,
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ß

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

HAllo
Erstmal:

Dim arrSrc1, arrFind1, iI1 As Long

Da ist nnur iI1 as long.
Die anderen beidsen sind as variant
Keine Ahnung warum ein Array das russisch nicht mag.
Ist aber auch egal.
Mach das einfach über die Text-Eigenschaft des Range-Objectes.
Teste mal dies:

' **********************************************************************
' Modul: Russisch  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Sub Russian()
    Dim wsBegin As String
    Dim i As Integer
    Dim arrSrc1 As Variant
    Dim arrFind1 As Range '##
    Dim iI1 As Long
    
    
    Set wsDict = Sheet10
    Sheet3.Select
    
    Columns("B").Hidden = True
    Columns("C").Hidden = True
    Columns("D").Hidden = False 'Da stehen die Sachen auf Russisch drin
    
    Select Case Sheet3.Range("Language").Value
        Case "German"
            arrSrc1 = wsDict.Range("B72:B78").Value
            Set arrFind1 = wsDict.Range("D72:D78")
            For iI1 = LBound(arrSrc1) To UBound(arrSrc1)
                Sheet3.Range("A1:P500").Replace What:=arrSrc1(iI1, 1), _
                    Replacement:=arrFind1(iI1, 1).Text, LookAt:= _
                    xlPart, SearchOrder:=xlByColumns, MatchCase:=True, SearchFormat:=False, _
                    ReplaceFormat:=False, MatchByte:=True
            Next
        Case "English"
            arrSrc1 = wsDict.Range("C72:C78").Value
            Set arrFind1 = wsDict.Range("D72:D78")
            For iI1 = LBound(arrSrc1) To UBound(arrSrc1)
                Sheet3.Range("A1:P500").Replace What:=arrSrc1(iI1, 1), _
                    Replacement:=arrFind1(iI1, 1).Text, LookAt:= _
                    xlPart, SearchOrder:=xlByColumns, MatchCase:=True, SearchFormat:=False, _
                    ReplaceFormat:=False, MatchByte:=True
            Next
        Case Else:
            MsgBox "Mach was anderes"
    End Select
    Sheet3.Range("Language").Value = "Russian"
End Sub

ransi

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread