Zin samenvoegen

[danny147]

Beste,

Is er een snellere manier om een zin samen te voegen als de letters in aparte cellen staat.

C9&D9&E9&F9&G9& enz...

Het kan wel om ongeveeer 100 à 200 aparte cellen gaan.
Deze handmatig typen vergt veel tijd.

Heb de code vorige week gekregen van Wigi maar lukt niet al te goed.

Sub g()
    
    Dim arr() As String
    Dim i As Integer
    Dim sTemp As String
    Dim iLastColumn As Integer
    
    iLastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
    
    ReDim arr(1 To iLastColumn)
    
    For i = 1 To iLastColumn
        
        sTemp = Cells(1, i).Value
        
        If sTemp = vbNullString Then sTemp = " "
        
        arr(i) = sTemp
    
    Next
    
    MsgBox Join(arr, vbNullString)

End Sub

Deze code om tevormen zodat het een functie wordt of dergelijke.
De te samenvoegen cellen begint vanaf C9 tot max IV9 en deze zou ik graag in één zin willen zien in cel C11.

Groetjes Danny. :thumb:

 

[snb]

Function woord(gebied As Range)
    woord = Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(gebied)), "")
End Function

Als in een cel de formule 'woord' zet, dien je de range aan te geven met de letters die moeten worden samengevoegd.
Ik ga ervan uit dat het steeds om 1 rij gaat.

 

[danny147]

Beste snb

Kan je dit volledig in een functie gieten ?

Groetjes Danny. :thumb:

 

[snb]

Vorige suggestie aangepast.

 

[danny147]

Beste snb

Function woord(gebied As Range)
    woord = Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(gebied)), "")
End Function

Als ik in de cel "woord" intyp, komt deze niet voor in de functies

Doe ik iets verkeerd of ligt het aan de code ?

Trouwens het is vandaag vrijdag de 13de en het heeft me nog niet mee gezeten vandaag

Groetjes Danny. :thumb:

 

[snb]

Dat was het vorige maand ook en dat heb je overleefd.

Zet de funktie in een macromodule (bijv. Module1)
Zet dan in een cel
=module1.woord(C9:Z9)

 

[danny147]

Beste snb

Dom van mij dat ik de formule in thisworkbook geplaatst hebt

Maar nu is alles in orde

Groetjes Danny. :thumb: