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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen