Kolom naar rij én kolom

[Dazzer]

Beste forumleden,

Ik moest voor schoolwerk gegevens kopiëren vanuit een specifiek programma naar excel. Nu is er echter bij één van deze kopies iets foutgelopen waardoor al mijn gegevens in 1 lange kolom samen staan. Hoe zou ik deze gegevens kunnen rankschikken? Hier en in de bijlage is alvast een upload van het excel-bestand te verkrijgen. In de eerste tab staat een voorbeeld waar het kopiëren wel gelukt is en hoe het dus hoort, in het 2e tabblad staat mijn probleem. Wie zou mij kunnen helpen a.u.b.?

Alvast bedankt en mvg,
Dazzer

Bekijk bijlage Helpmij-bestand.xlsx

 

[Timshel]

Probeer het eens met deze code:

Sub tsh()
    Dim Br
    
    Br = Split(Replace(Sheets("Fout").Cells(1, 1), ".", ","), vbLf)
    With Sheets("Blad3")
        .Cells(1, 1).Resize(UBound(Br)) = Application.Transpose(Br)
        .Columns(1).TextToColumns Destination:=.Range("A1"), DataType:=xlFixedWidth, _
            FieldInfo:=Array(Array(0, 1), Array(12, 1), Array(19, 1))
    End With
End Sub

 

[Dazzer]

Werkt uitstekend! Bedankt!