VBA til håndtering af csv-data (Excel 2010)

Du er velkommen til at sende filen.
Også gerne sådan som filen skal se ud efter VBA-behandling.

@-adresse under min profil.

Skitse:

Dim antalRæk As Integer, ræk As Integer, linje As String, tabel As Variant
Dim part0 As String, part1 As String, part2 As String, part3 As String, part4 As String, part5 As String
Public Sub redigerCsv()
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
   
    For ræk = 1 To antalRæk
        linje = Range("A" & ræk)
        tabel = Split(linje, """")
       
        part0 = tabel(0)
        part1 = Chr(34) & tabel(1) & Chr(34)
        part2 = tabel(2)
       
        part3 = Chr(34) & tabel(3) & Chr(34)
        part3 = Replace(part3, "kr", "")
        part3 = Replace(part3, ".", ",")
       
        part4 = tabel(4)
       
        part5 = Chr(34) & tabel(5) & Chr(34)
        part5 = Replace(part5, ",", ".")
       
        part6 = tabel(6)
        part7 = Chr(34) & tabel(7) & Chr(34)
        part8 = tabel(8)
        part9 = Chr(34) & tabel(9) & Chr(34)
       
        nylinje = part0 & part1 & part2 & part3 & part4 & part5 & part6 & part7 & part8 & part9
       
       
        Range("B" & ræk) = nylinje
        Columns.AutoFit
    Next ræk
End Sub

Et svar

Mange tak til SUPERTEKST for kompetent hjælp.

Hans