transponeren op basis van inhoud kolom A

[globe]

Ik heb een lijst met meerdere kolommen.

Deze moet getransponeerd worden op basis van een verandering van de inhoud van kolom A.

Het voorbeeld maakt een hoop duidelijk.Bekijk bijlage voorbeeld.xls

Wie kan er wat hulp bieden?

 

[Ginger]

Kan je hier iets mee?

Sub ff()
Dim Output() As Variant
    
    Tabel = Sheets(1).Cells(1).CurrentRegion
    x = 0
    For i = 2 To UBound(Tabel, 1)
        If Tabel(i, 1) <> Tabel(i - 1, 1) Then
            x = x + 1
            ReDim Preserve Output(1 To x)
            For ii = 1 To 3
                Output(x) = Output(x) & Tabel(i, ii) & ","
            Next ii
        Else
            Output(x) = Output(x) & Tabel(i, 3) & ","
        End If
    Next i
    
    With Sheets.Add(after:=Sheets(Sheets.Count))
        .Cells(1).Resize(UBound(Output, 1), 1) = Application.Transpose(Output)
        .Columns(1).TextToColumns Comma:=True
    End With
    
End Sub

 

[globe]

top!

precies wat ik zoek. Thnx man!