Macro die Transposed en Replaced

[sandernoteborn]

Hallo,

Ik wil graag een macro maken die het volgende doet:
Een rij getallen onder elkaar transposen en de tussenruimtes replacen door een ;

HUIDIGE SITUATIE:
* Ik plak een rij getallen onder elkaar.
* Deze rij kopieer ik en transpose ik.
* Deze tranpose kopieer ik naar notepad
* Er wordt tussen de getallen een spatie gezet
* Ik selecteer deze spatie en REPLACE deze met een ;
* Hierdoor krijg ik het volgende gewenste resultaat:

101;102;103;104;105 enzovoort

GEWENSTE SITATIE:
* Ik plak de rij onder elkaar staande getallen in Excel
* Door een macro knop worden deze getransposed en komen de waarden in één cel achter elkaar, gescheiden met een ;

Is dit mogelijk? en zo ja heeft iemand een idee? Tot op heden is het mij niet gelukt om dit voor elkaar te krijgen terwijl het wel moet kunnen lijkt mij.

Hartelijk dank

 

[Cobbe]

Zoe iets?

Succes, Cobbe

 

[Roncancio]

Zo:

Sub Transpose()
Dim iRij As Integer
Dim sTekst As String
    iRij = 2
    While ActiveSheet.Cells(iRij, "B") <> ""
        Tekst = Tekst & Cells(iRij, "B") & ";"
        iRij = iRij + 1
    Wend
    Tekst = Left(Tekst, Len(Tekst) - 1)
    Range("D2") = Tekst
End Sub

Met vriendelijke groet,


Roncancio

 

[sandernoteborn]

Zoe iets?

Succes, Cobbe

Super! Dit is wat ik nodig heb!

Hartelijk dank!