Ersetzen von Zeichen durch Unicode-Zeichen

Question

Ich arbeite mit einer großen Datendatei. Die B-Spalte des Excel-Blattes enthält Dateinamen. Allerdings werden beim Herunterladen 2 Zeichen ersetzt (ä wird zu + ñ und ö wird zu + Â.) Ich muss in der Lage sein, mit diesen Dateinamen zu suchen, also muss ich die Namen wieder in das Original umkehren. Hier

ist, was ich ursprünglich versucht:

Private Sub scandit(n As Long) 

Dim i As Long 
For i = 2 To n 
Dim a As String 
Dim b As String 
Dim c As String 
Dim d As String 
a = "+" & ChrW(194) ' + 
b = ChrW(132) 'ä 
c = "+" & ChrW(164) ' +n 
d = ChrW(148) 'ö 

    If Not IsEmpty(Cells(i, 2).Value) Then 
     Cells(i, 2).Value = Replace(Cells(i, 2).Value, c, b) 
     Cells(i, 2).Value = Replace(Cells(i, 2).Value, a, d) 
    End If 
Next i 

End Sub 

Allerdings funktioniert dies nicht. "+ ñ" wird nur entfernt, aber nicht ersetzt. Nichts passiert mit "+".

Nach einigen googeln fand ich dies:

Sub CommandButton1_Click() 
    Dim fnd As Range 
    With ActiveSheet 
     .Cells.Replace what:="+" & ChrW(194), replacement:=ChrW(132), 
lookat:=xlPart 
     .Cells.Replace what:="+" & ChrW(164), replacement:=ChrW(148), 
lookat:=xlPart 
    End With 
End Sub 

Dieses genau das gleiche Problem wie meine eigenen Code hat.

Beispiel, wie der Austausch funktionieren sollte: sy + Td + ñ -> syödä

Es sehr geschätzt werden würde, wenn jemand einige Ideen hatte, wie man hier vorgehen (beachten Sie, dass ich nur den Ersatz tun wollen für Zellen in B-Säule.)

Answer 1

ich habe gerade die ChrW Werte und Ihren Code gestartet

Sub scandit() 

Dim i As Long 
For i = 2 To 5 
Dim a As String 
Dim b As String 
Dim c As String 
Dim d As String 
a = "+" & ChrW(194) ' + 
b = ChrW(228) 'ä 
c = "+" & ChrW(241) ' +n 
d = ChrW(246) 'ö 

    If Not IsEmpty(Cells(i, 2).Value) Then 
     Cells(i, 2).Value = Replace(Cells(i, 2).Value, c, b) 
     Cells(i, 2).Value = Replace(Cells(i, 2).Value, a, d) 

    End If 
Next i 

End Sub