tekst naar getal

[HSV]

Wat is...
het scheidingsteken voor duizendtallen?
het decimaalteken?
....in de opties van Excel.

 

[jansm]

dit zijn mijn huidige instellingen

 

[HSV]

Ik kan het niet zien zo klein als het is.
duizendtallen is leeg?

 

[jansm]

dec = punt
duizendteken = leeg

 

[HSV]

Maak van decimaal een komma en van duizendtallen een punt.

 

[jansm]

dit werkt Harrie. Maar nu ben ik bang dat ik in de problemen kom met andere sheets. Is deze setting per bestand in te stellen? Ik heb in die sheets nu kolommen me getallen die 2 punten bevatten.

 

[jansm]

... om de kolommen in getalnotatie te krijgen moet er dus eerst vermenigvuldigd (of optelling oid) worden. Kan dit ook in het macro-tje opgenomen worden?

 

[RafDielkens]

Als ik het goed begrijp staat in jouw instellingen voor decimaalteken een punt:

De volgende formule doet het volgende:
- Duizendtalteken verwijderen (Van '.' naar niets)
- Overbodige spatie verwijderen (Van ' ' naar niets)
- Decimaalteken veranderen (Van "," naar ".")
- dit resultaat vermenigvuldigen met 1 zodat Excel deze herkent als getal

=SUBSTITUEREN(SUBSTITUEREN(SUBSTITUEREN(D5;".";"");" ";"");",";".")*1

Ik heb het vertaald vanuit engels, hopelijk geeft hij geen foutmelding...

 

[Cobbe]

Waarom niet gewoon deze functie gebruiken?

Public Function vali(c As Range)
 For g = 1 To Len(c.Value)
  teken = Mid(c.Value, g, 1)
   If IsNumeric(teken) Or teken = "," Then getal = getal & teken
 Next
vali = getal
End Function

 

[MarcelBeug]

Edit: eerst na het plaatsen van het onderstaande, merkte ik alle bijdragen op pagina 2 op.

Nog een alternatief: de volgende formule (in E5 en gekopieerd naar beneden) verwijdert spaties en punten en maakt van de komma het teken dat volgens de instellingen als decimaalteken wordt gebruikt.
Hiervoor gebruik ik een trucje: DEEL(3/2&"";2;1)
Dat geeft 3/2 in tekst (door de &""), dus 1,5 of 1.5; het tweede teken daarvan is dus een punt of een komma.
Bij mij werkt het zowel met regio Engels (Verenigde Staten) als Nederlands.

=--SUBSTITUEREN(SUBSTITUEREN(SUBSTITUEREN(D6;" ";"");".";"");",";DEEL(3/2&"";2;1))

 

[jansm]

bedankt Marcel, ga ik straks na kijken. Wat doe ik hier fout Cobbe?

 

[Cobbe]

Wat doe ik hier fout Cobbe?

Je doet niets fout maar dit werkt zo niet, je roept een functie aan die bedoeld is te werken per cel en
die je dus ook moet benoemen in de aanroep, bv:

=vali(d5)*1

*1 dient om er een numerieke waarde van te maken.

 

[jansm]

Oke Cobbe, bedankt. Is deze functie ook in een macro te verwerken?