script horizontaal transponeren

[moensk]

klein voorbeeldje gemaakt
bedoeling is per referentie in kolom A alle bij hoorden info in kolom B horizontaal te verdelen over meerdere kolommen (transponeren)
heb geprobeerd via draaitabel en transponeren maar krijg het niet naar wens

 

[sylvester-ponte]

met een macrootje is het eenvoudig. mag dat ook?

 

[moensk]

zeker mag een macrootje

 

[VenA]

Is hier toch al beantwoord? https://www.helpmij.nl/forum/showthread.php/949653-script-transponeren

 

[HSV]

Verwijder de eerste twee rijen.

Sub hsv()
Dim sv, i As Long, ii As Long, s0 As String, n As Long, s As Long, b
sv = Cells(1).CurrentRegion
ReDim a(UBound(sv), UBound(sv))
n = 1
For i = 2 To UBound(sv)
 a(0, 0) = sv(1, 1)
 s = 0
     If InStr(s0, "|" & sv(i, 1) & "|") = 0 Then
                s0 = s0 & "|" & sv(i, 1) & "|"
                a(n, 0) = sv(i, 1)
         For ii = i To UBound(sv)
            If sv(ii, 1) = sv(i, 1) Then
                       s = s + 1
                       a(0, s) = "opmerking " & s
               a(n, s) = sv(ii, 2)
           End If
         Next ii
       n = n + 1
    End If
    If s > b Then b = s
  Next i
 Cells(20, 5).Resize(n, b + 1) = a
End Sub

Maak anders een draaitabel.

 

[moensk]

werkt super - thanks