Cells.Replace in macro

Status
Niet open voor verdere reacties.

wilbert1967

Gebruiker
Lid geworden
19 jun 2004
Berichten
629
hallo

als ik zelf zoek en vervang van € naar 'leeg/niks/' dan gaat de notatie goed (cel opmaak is standaard)

Totaal budget
€ 1.201.131
€ 681.749

wordt

Totaal budget
1.201.131
681.749

maar met onderstaande macro krijg ik

Totaal budget
1.201.131
681,749

hoe aan te passen ?


Code:
Cells.Replace What:="€", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, _
        FormulaVersion:=xlReplaceFormula2

mvg wilbert
 
Lijkt vreemd, maar vervang naast het euro teken door niets, tevens de komma door een komma.
Dat heeft te maken met het verschil tussen Nederlandse en Amerikaanse getal notatie.
 
En hou het simpel:

Code:
Cells.Replace "€ ", ""
 
door eerst de . te vervangen en dan de € en dan de type valuta om te zetten naar standaard in de macro gaat het goed:)
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan