• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

script horizontaal transponeren

Status
Niet open voor verdere reacties.

moensk

Gebruiker
Lid geworden
23 jun 2013
Berichten
787
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
 

Bijlagen

Verwijder de eerste twee rijen.

Code:
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.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan