Macro transponeren omkeren

[sandernoteborn]

Ik heb een macro die een lijst van woorden/ getallen die onder elkaar in afzonderlijke cellen staan te combineren en te transponeren gescheiden met ";".

Mijn vraag is echter, zou ik deze macro ook kunnen omdraaien? Dat ik bijvoorbeeld een lijst van e-mail adressen gescheiden door ";" in een cel plak (in voorbeeld excel D2):

mailadres@mail.com ; mailadres2@mail.com ; mailadres3@mail.com ; etc.

dat vervolgens de macro deze uit elkaar haalt en verticaal onder elkaar plakt in afzonderlijke cellen?

Zie bijgevoegd document.

 

[snb]

Sub tst()
  sq = Split([A1], ";")
  Cells(2, 4).Resize(UBound(sq)) = WorksheetFunction.Transpose(sq)
End Sub

 

[DCWDPT]

eerst 'tekst naar kolommen' dan kopiëren en transponeren

Je moet eerst de tekst uit de cel naar kolommen zetten (Data - Tekst naar kolommen), vervolgens de cellen waar de tekst dan in terecht komt selecteren en kopiëren, dan kiezen voor plakken speciaal en een vinkje zetten bij 'transponeren'. Zo gaat het bij mij goed.

:thumb: