Deel van rij kopiëren/transponeren naar kolom

[Purrel]

Beste mensen,

ik heb een probleem waar ik zelf niet uit kom. Hopelijk kan iemand van jullie me helpen. Ik heb al wel gezocht op het forum, maar met behulp van die topics kom ik er niet uit.

Ik heb een heel erg basic voorbeelddocument bijgesloten.
De gegevens die op Blad1 staan wil ik in een andere vorm gieten, de vorm op Blad2. Op zich kan dat volgens mij prima met transponeren, maar de kolommen op Blad1 zou ik alleen op Blad2 willen terug zien als er een waarde staat.

Kan iemand mij op weg helpen met een macro?
Bedankt alvast!

Bekijk bijlage Voorbeeld.xls

 

[sylvester-ponte]

hier moet je een heel eind komen

Sub Invullen()
    Dim Tabel As Range, Plaats As Range, Cel As Range, Teller As Integer, StartPunt As Range
    Set StartPunt = Range("Blad1!A1")
    Set Tabel = Range("Blad1!E2:I4")
    Set Plaats = Range("Blad2!A2")
    Plaats.Parent.UsedRange.Offset(1, 0).ClearContents
    For Each Cel In Tabel
        If Cel.Value <> "" Then
            Plaats.Offset(0, 4).Value = StartPunt(1, Cel.Column)
            Plaats.Offset(0, 5) = Cel.Value
            For Teller = 1 To 4
                Plaats.Offset(0, Teller - 1) = StartPunt(Cel.Row, Teller)
            Next Teller
            Set Plaats = Plaats.Offset(1, 0)
        End If
    Next Cel
End Sub

groet sylveser

 

[Purrel]

Hiermee is het vraagstuk inderdaad opgelost. Hartstikke bedankt voor de snelle en uitstekende service!