niet op te tellen

[alletwee]

Hallo allemaal,
ik zit met bestanden die ik download uit Binance.
Als ik deze bestanden geopend heb en er bijvoorbeeld een optelling in wil doen dan lukt dat niet omdat de getallen met een . (punt) zijn opgemaakt in plaats van een , (komma).
Nu kan ik natuurlijk met zoeken/vervangen dit aanpassen maar dan is het nog niet opgelost. Ik heb dan bijvoorbeeld in cel E4 een waarde van 65 staan die ook niet op te tellen is/als getal herkend word. Daar moet ik dan weer ,0 achter zetten om het een echt getal te laten zijn.

Heeft iemand een idee hoe dit in 1 x op te lossen is?

Hoor het graag en alvast bedankt.

Frans

 

[JEC.]

Met een macrotje

Sub jec()
 With Range("D2", Range("G" & Rows.Count).End(xlUp))
   .Value = Evaluate(Replace("substitute(@@,""."",""."")", "@@", .Address))
 End With
End Sub

andere variant

Sub jvr()
 With Range("D2", Range("G" & Rows.Count).End(xlUp))
  .Value = .Value
  .Replace ".", "."
 End With
End Sub

 

[AlexCEL]

Of data transformeren met Power Query.

 

[VenA]

Hoe ziet de originele download eruit. Is dit een tekstbestand of is het .csv (eigenlijk ook een tekstbestand) of is het een Excel bestand?

 

[alletwee]

Hoe ziet de originele download eruit. Is dit een tekstbestand of is het .csv (eigenlijk ook een tekstbestand) of is het een Excel bestand?

Bestand heeft een.xlsx extensie

 

[alletwee]

Met een macrotje

Sub jec()
 With Range("D2", Range("G" & Rows.Count).End(xlUp))
   .Value = Evaluate(Replace("substitute(@@,""."",""."")", "@@", .Address))
 End With
End Sub

andere variant

Sub jvr()
 With Range("D2", Range("G" & Rows.Count).End(xlUp))
  .Value = .Value
  .Replace ".", "."
 End With
End Sub

 

[alletwee]

Dan zal ik eerst moeten gaan leren hoe ik de macro uit kan voeren, ik ga daarna zoeken.


Ook voor "power Query" moet ik me verder verdiepen hoe dat werkt