het maal-teken zoeken en vervangen

[HenkGRIP]

Ik wil het maal-teken vervangen door het deel-teken in een tekst wat in Excel staat.
Echter VBA ziet * als joker-teken i.p.v. het maal-teken (Zie onderstaande VBA-code).
Kan ik dit op een andere manier oplossen?

VBA-code:

Sheets("Map1").Range("B:B").Replace What:="*100", Replacement:="/100", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

 

[HSV]

Zet er eens vierkante haken om.

 

[huijb]

@HenkGRIP Codes en formules dienen tussen code tags geplaatst te worden, zo is het voor de helpers duidelijker wat je wil c.q.vraagt. Zie ook hier http://www.helpmij.nl/forum/showthread.php/321171-Lees-dit-eerst-voor-je-een-vraag-plaatst

 

[HSV]

Sorry voor mijn korte onduidelijke reactie waarschijnlijk, maar ik bedoelde de vierkante haken gebruiken om je jokerteken te zoeken.
Dus iets van:

Sheets("Map1").Range("B:B").Replace What:=[COLOR=#ff0000][[/COLOR]"*100"[COLOR=#ff0000]][/COLOR], Replacement:=[COLOR=#ff0000][[/COLOR]"/100"[COLOR=#ff0000]][/COLOR], LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

 

[HenkGRIP]

Harry,

Allereerst bedankt voor je snelle reactie.
Als ik in mijn VBA "*100" wijzig in ["*100"] dan werkt het nog niet.

(de tekst *100 staat niet in een formule maar komt voor in een tekst)


Gr. Henk

 

[HSV]

Lukt het zo beter Henk?

Sub hsv()
Dim cl As Range
For Each cl In Columns(2).SpecialCells(2)
 cl = Replace(cl, ["*100"], "/100", 1, 1)
Next cl
End Sub

 

[snb]

Sub tst()
    Columns(2).Replace "~*", "/"
End Sub

 

[HenkGRIP]

Probleem opgelost

Harry en SNB,

Alle beide oplossingen werken.
Bedankt voor jullie medewerking.

Gr. Henk