Tekst converteren naar getal middels macro

[drexia]

Het lukt me niet om een cel waarin een bedrag vermeld staat met een euroteken ervoor middels een macro te converteren naar een getal (ipv tekst).

Wanneer ik handmatig alle cellen doorloop, op het uitroepteken klik en de cellen converteer naar tekst dan wordt deze handeling niet opgenomen door de macro functie.

Ik heb ook geprobeerd om een "1" in een cel te zetten deze cell te kopieeren en dan speciaal plakken, onder bewerken en dan "vermenigvuldigen".
Dit is wel een handmatige oplossing maar ook deze oplossing wordt niet door de macro functie opgenomen .

Iemand tips?

 

[Wigi]

Je kan over een bepaalde methode (zoals Plakken speciaal) ook informatie zoeken in de helpfiles, als de macro recorder niets genereert.

Bijvoorbeeld;

Sub Macro1()
    With [A1]
        .Value = 1
        .Copy
        .Offset(1).Resize(10).PasteSpecial xlPasteAll, xlMultiply
        .ClearContents
    End With
End Sub

In het bereik A2:A11 wordt met deze code met 1 vermenigvuldigd.

Wigi