Splitsen waarden .csv met komma's als decimaalteken EN als scheidingsteken

[Bullero]

Voor een schoolproject zijn G-kracht metingen gedaan. De meters geven een .csv bestand af met de gemeten waarden in de volgende indeling:

time,x,y,z,gforce

Excel kan verschillende kolommen maken door te scheiden na een komma. Maar door een verkeerde instelling van de meters zijn de decimaaltekens ook komma's. Voorbeeld op één tijdstip:

0,0080,0,0029,0,1827,0,8942,0,913

terwijl de waarden op tijdstip 0,0080 gelijk zijn aan x=0,0029 y=0,1827 z=0,8942 en Gforce=0,913

Weet iemand hoe ik dit goed gesplitst krijgt? Bestaat er bijvoorbeeld een formule die bijvoorbeeld het x'de teken in een hokje vervangt naar een ;? Andere suggesties zijn ook welkom.

Alvast bedankt!

 

[Timshel]

Kun je je csv hier plaatsen?

 

[MarcelBeug]

Misschien kan het eenvoudiger, maar ik kom op:

=SUBSTITUEREN(SUBSTITUEREN(SUBSTITUEREN(SUBSTITUEREN(A1;",";";";8);",";";";6);",";";";4);",";";";2)

 

[edmoor]

Heb je die van MarcelBeug al getest?
Die doet het perfect.

 

[Bullero]

Het is zojuist gelukt. Thanks voor de snelle reactie allemaal!

 

[Timshel]

Probeer het eens met deze macro:

Sub tsh()
    Dim Br, Bq
    Dim i As Long, j As Long
    
    Br = Cells(1).CurrentRegion
    For i = 2 To UBound(Br)
        Bq = Split(Br(i, 1), ",")
        Br(i, 1) = ""
        For j = 0 To UBound(Bq) Step 2
            Br(i, 1) = Br(i, 1) & ";" & Bq(j) & "," & Bq(j + 1)
        Next
        Br(i, 1) = Mid(Br(i, 1), 2)
    Next
    With Cells(1, 2).Resize(UBound(Br))
        .Value = Br
        .TextToColumns , 1, , , , , , , 1, ";"
    End With
End Sub

 

[Bullero]

Deze macro werkt inderdaad wat handiger. Thanks!