Kolommen onder elkaar samenvoegen

[pd123]

@bakerman Ik werk inderdaad op een Mac met een Office versie.

 

En nu....?

Trouwens, heel erg bedankt voor @bakerman en @alpha voor jullie hulp tijdens deze feestdagen.!

 

[bakerman]

Vervang dan de huidige code eens door deze.

Sub tst()
Dim col As New Collection
Dim myarr
With Sheets("Blad1")
    sn = .Cells(1, 2).CurrentRegion.Value
End With
With col
    For i = 2 To UBound(sn, 2) Step 2
        For ii = 2 To UBound(sn)
            If sn(ii, i) <> vbNullString Then .Add Array(sn(ii, i + 1), sn(ii, i)), sn(ii, i + 1)
        Next
    Next
    ReDim myarr(1 To .Count, 1 To 2)
End With
x = 1
For Each i In col
    myarr(x, 1) = i(1): myarr(x, 2) = i(0)
    x = x + 1
Next
With Sheets("Blad1").Cells(20, 1)
    .CurrentRegion.ClearContents
    .Resize(UBound(myarr), 2) = myarr
End With
End Sub

 

[kweezie wabbit]

Werkt de oplossing?

Als je verder geen vragen of problemen meer hebt, geef dan een seintje zodat we dit onderwerp kunnen afsluiten.

[pd123]

Beste allen,

 

dankzij de geweldige hulp van @bakerman is het probleem opgelost en kan het topic gesloten worden.

 

Bedankt allen voor het meedenken.

 

FIjne jaarwisseleing en een gelukkig en gezonde 2019

MVRGR Patrick
 

[kweezie wabbit]

Voor jouw ook de beste wensen voor 2019.

Dan zetten we hier een op.