Transponeren

[Jumeau]

Ik wil de plaatsen van tabblad 1 in tabblad 2 onder elkaar zetten in 2 kolommen (plaats met code erachter, per plaats/code een rij).
Met de functie transponeren zijn dat best wat handelingen, gezien dat het behoorlijk wat plaatsen zijn en per plaats een verschillend aantal postcodes. Is hier een makkelijker manier voor?

Alvast dank

 

[sylvester-ponte]

met deze vba code:

Sub overZetten()
    Dim PlaatsVan As Range, CodeVan As Range, CelNaar As Range
    Set CelNaar = Range("blad2!D2") 'hij zet de oplossing naast de jouwe om te vergelijken
    For Each PlaatsVan In Sheets("blad1").Cells.Columns(1).SpecialCells(xlCellTypeConstants)
        Set CodeVan = PlaatsVan(1, 2)
        Do Until CodeVan = ""
            CelNaar = PlaatsVan
            CelNaar(1, 2) = CodeVan
            Set CelNaar = CelNaar(2, 1)
            Set CodeVan = CodeVan(1, 2)
        Loop
    Next
End Sub