Ersetzen von "■" durch "ö"
02.06.2004 17:02:18
"■"
Folgende Problemstellung:
Möchte ein Sonderzeichen "■" per Makro durch "ö" ersetzen lassen.
Aufzeichnung Suchen nach "■" und ersetzen durch "ö" liefert:
Sub ersetzen()
Cells.Replace What:="¦", Replacement:="ö", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
End Sub
Makro und Originalzeichen in der angehängten Datei! https://www.herber.de/bbs/user/7045.xls
Code Funktion liefert für das im Makro aufgezeichnete Zeichen "¦" den Wert 166, der Makro ersetzt aber damit nicht mehr mein Zeichen "■"
Für "■" liefert die Code Funktion den Wert 63, das Zeichen zu 63 aber ist das Fragezeichen "?", dieses wiederum ist eine Wildcard!
Also Versuch "?" ersetzen durch "ö" - dies ersetzt aber lediglich das Fragezeichen selbst
Kopiert man direkt das Zeichen "■" in den Makro, steht dort wieder "?" bzw. "¦"
Kann wer weiterhelfen?
Gruß Uwe
Anzeige