Excel 2010 Tekst naar getal

[Sytse1]

In een werkblad met veel getallen worden sommige getallen als tekst getoond.
Je kan dan per cel de tekst naar getal converteren.
De cel eigenschappen omzetten naar getal help niet.
De tekst blijft in de cel als tekst staan.
In bovenstaande afbeelding zie je hoe ik per cel de tekst naar getal kan converteren.
Met behulp van VBA moet het toch mogelijk zijn om dit te automatiseren.
Wellicht kan iemand mij de code voor deze conversie geven.
b.v.d. Sytse

 

[edmoor]

Het plaatje zegt niet zoveel, daarom kan ik er alleen dit over zeggen: celwaarde = Int(celwaarde)

 

[OctaFish]

Neem eens een macro op die de handeling uitvoert, zie je gelijk welke code ervoor gebruikt wordt.

 

[leofact]

Voorbeeldbestanden zijn een stuk duidelijker dan afbeeldingen..
De volgende code zet getallen die als tekst zijn opgeslagen weer om in een getal:

Sub Converteren()
Dim r As Range
   For Each r In ActiveSheet.UsedRange
       If IsNumeric(r.Value) Then r.Value = Val(r.Value)
   Next r
End Sub

 

[Sytse1]

Bedankt voor de reacties.
Een werkblad meezenden heb ik overwogen.
Alleen dan kon ik mijn vraag niet duidelijk maken, vandaar de afbeelding.
Een macro geprobeerd, alleen die gaf aan welke cel ik geselecteerd had. Niet de omzetting.
De code van OctaFish is de oplossing. Bedankt hiervoor.
Iedereen bedankt voor het meedenken en de suggesties.
Sytse