punt-koma

[lsc.b]

punten moeten komma`s worden

ik heb al veel rond gezocht hier en elders op internet maar kan niets vinden wat werkt
in mijn voorbeeld staan 4 kolommen met getallen met punten er tussen nu zocht ik iets wat ,
via vba / macro kan,
zodat het makkelijker gaat worden om met de getallen te rekenen
wie kan en wil er voor mij iets voor maken ik kom er niet uit
dus alle hulp is welkom

 

[JEC.]

probeer dit eens

range("A1:D20").replace ".", ","

of

range("A1:D20").replace ".", "."

 

[lsc.b]

ik zie het niet werken tenzij ik het op de verkeerde plaats plak

 

[edmoor]

Wij kunnen zo niet zien waar je dat hebt geplakt.

 

[peter59]

Hallo,

Geef eens een voorbeeldje (bijlage) waar deze punten staan.
M.a.w. woorden. Zijn het decimale punten o.i.d.

 

[lsc.b]

sorry weer vergeten

 

[JEC.]

Celeigenschappen aanpassen dit keer. 1000 separator staat aan

 

[lsc.b]

Celeigenschappen aanpassen dit keer. 1000 separator staat aan

kopt maar dan staan er nog geen komma`s tussen waar nu de punten staan
deze getallen krijg ik via mail binnen is een csv bestand

 

[edmoor]

En nog steeds geen voorbeeld.

 

[JEC.]

Zo dan?

Sub jec()
 With Cells(1).CurrentRegion
    .NumberFormat = "@"
    .Value = Evaluate("text(" & .Address & ",""#\,###\,###"")")
 End With
End Sub

 

[lsc.b]

ja twee plaatsen hoger

 

[edmoor]

En nog steeds geen voorbeeld.

Die had ik over het hoofd gezien.

 

[lsc.b]

Zo dan?

Sub jec()
 With Cells(1).CurrentRegion
    .NumberFormat = "@"
    .Value = Evaluate("text(" & .Address & ",""#\,###\,###"")")
 End With
End Sub

dit ziet er goed uit maar ik zie dat de getallen nu is omgezet in tekst nu kan ik niet berekenen

 

[JEC.]

Deze werkt beter

Sub jec()
 With Cells(1).CurrentRegion
    .NumberFormat = "@"
    .Value = Evaluate("text(" & .Address & ", if(len(" & .Address & ")>6, ""#\,###\,###"" , ""###\,###""))")
 End With
End Sub

 

[lsc.b]

Deze werkt beter

Sub jec()
 With Cells(1).CurrentRegion
    .NumberFormat = "@"
    .Value = Evaluate("text(" & .Address & ", if(len(" & .Address & ")>6, ""#\,###\,###"" , ""###\,###""))")
 End With
End Sub

is nog steeds omgezet naar tekst hoe nu berekenen???

 

[JEC.]

Ik begrijp het doel niet maar zo bvb

=SUBSTITUTE(A1;",";"")+100

 

[lsc.b]

de bedoeling is dat ik om de 7dagen of per maand de verschillen moet kunnen berekenen en daarna nog % uit halen
kun je geen voorbeeld bestandje voor me maken

 

[edmoor]

Of zo:

 With Cells(1).CurrentRegion
    .NumberFormat = "0"
 End With

 

[JEC.]

Je kunt ook hier eens naar kijken. Omzetten naar tekst en daarna weer naar een getal is gekkenwerk.

https://support.microsoft.com/en-us...le > Options.,Use system separators check box.

 

[peter59]

Kan je eens laten zien hoe je deze gegevens binnen haalt en/of deze eruit zien?
Deze krijg je via de mail, als bijlage (CSV) of zoals je voorbeeld.