Excel 2007 cellen A1 t/m A35 samenvoegen

[Verwijderd lid 94799]

Hallo forumleden,

Ik wil graag de cellen A1 t/m A35 samenvoegen, nu kan het via de functie =tekst.samenvoegen(a1;a2, om vervolgens tot A35 in te typenc, maar er moet toch een snellere manier zijn om cel a1 t/m a35 samen te voegen?

Greet
Phillip

 

[Cobbe]

Als dat meerder malen moet gebeuren kan je deze functie gebruiken:

Function samenvoegen(cel As Range) As String
 For Each cl In Range(cel)
  If cl.Value <> "" Then
   comb = comb & cl & " "
  End If
Next
 samenvoegen1 = Left(comb, Len(comb) - 2)
End Function

met in een cel (cel) een range bv A1:A35 .

 

[snb]

In een macromodule de UDF (User Defined Function):

Function F_samen(c00)
    F_samen = Join(Application.Transpose(c00), "")
End Function

in cel C5

= F_samen(A1:A35)

 

[Cobbe]

Dit vind ik nu niet eerlijk.

 

[Verwijderd lid 94799]

beide antwoorden werken! mijn dank is groot!

 

[snb]

@Cobbe


Calimero in Middelkerke ??

Ik trek me wel terug hoor...

PS. kijk ook nog eens naar het effekt van:

Function F_samen(c00)
    F_samen = Join(Application.Transpose(c00))
End Function

 

[Cobbe]

Waarom werkt dit tegen de logica in?
Toevoeging " " laat de spaties weg !!!