via macro omzetten naar getal

[susanthuis]

Beste Helpmij,

Kan iemand een licht werpen op de onderstaande macro programmering? Via een macro probeer ik de cellen om te zetten naar een getal, alleen merk ik dat het niet werkt.
Range("y1").Select
ActiveCell.FormulaR1C1 = "1"
Range("Y1").Select
Selection.Copy
Range("O2:O30").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=FalseBekijk bijlage Map2.xlsx

 

[snb]

Sub M_snb()
  [o2:O20] = [o2:O20].Value
End Sub

 

[susanthuis]

Sub M_snb()
  [o2:O20] = [o2:O20].Value
End Sub

Het werkt helaas nog niet....

 

[snb]

Wel in het bestand dat jij plaatste.

Moet je de macro natuurlijk wel in de codemodule van het werkblad met deze gegevens zetten.

 

[susanthuis]

Wel in het bestand dat jij plaatste.

Moet je de macro natuurlijk wel in de codemodule van het werkblad met deze gegevens zetten.

dat heb ik ook gedaan, maar het werkt echt niet....sorry

 

[VenA]

Probeer het eens met tekst naar kolommen.

Range("O2:O30").TextToColumns , , , , , , , , , , , ".", ","

 

[susanthuis]

Probeer het eens met tekst naar kolommen.

Range("O2:O30").TextToColumns , , , , , , , , , , , ".", ","

Dank voor je reactie maar dit lukt steeds niet. Is het een idee om het in het Excel bestand te zetten die ik had bijgevoegd?Dan kan ik dat meteen overnemen.

 

[VenA]

Met bestandje.

 

[OctaFish]

Susan, wil je niet meer quooten? Lijkt mij nergens voor nodig.

 

[HSV]

De code van @VenA werkt bij mijn niet, dus maar iets anders.

Sub hsv()
With [o2:o30]
 .Replace ",", "."
 .NumberFormat = "0.00"
 End With
End Sub

 

[VenA]

:d Bij mij ook niet. (vanaf een andere PC) Tenzij ik de "." en "," omdraai dan gaat het eenmalig goed. Het blijft de wondere wereld van MS met getalnotaties.