versuchs mal so:
in die Zelle mit dem Sonderzeichen gehen, nur das Sonderzeichen kopieren, aus der Zelle rausgehen, Dialog suchen/ersetzten aufrufen, Zeichen reinkopieren und erstzen mit ausfüllen.
Vielleicht klapps
Holger
Sub Ersetze()
' zuerst mal den Range definieren
With Worksheets(1).Range("a1:a10")
' In diesem Beispiel wird das 7.Zeichen in der Zelle A1 als Findstring definiert
Set zelle = .Find(Mid(Range("A1"), 7, 1), LookIn:=xlValues)
If Not zelle Is Nothing Then
' dann werden alle Zeichen im definierten Range ersetzt, die diesem Zeichen ensprechen.
Do
' Ich ersetzte das ungewollte Zeichen durch x
zelle.Replace Mid(Range("A1"), 7, 1), "x"
Set zelle = .FindNext(zelle)
Loop While Not zelle Is Nothing
End If
End With
' das wars
End Sub
Geh mal im Single-Step durch damit du das Ganze verstehst.
Melde dich obs geklappt hat.
Gruß
RAnton