namen in willekeurige cellen, achter elkaar zetten

[thst]

Hallo Excellers,

In kolom A heb ik in verschillende cellen namen staan die ik
in een cel achter elkaar wil hebben gescheiden door een "-"

NB. Het is niet bekend in welke cellen namen staan.
Alleen dat ze in kolom A staan.

Wie heeft er een formule voor me ?

Angela

 

[HSV]

Om hoeveel namen gaat het ongeveer, anders wordt het wel een hele lange formule.

 

[thst]

Beste HSV,

Ongeveer 500 namen

Angela

 

[HSV]

In één cel ?? (hoelang wordt deze cel dan wel?), het zou me misschien lukken, maar ben volgende week nog bezig denk ik.
Hieronder een voorbeeld met zeven, gesplitst uit twee kolommen, door "▲ en : " 14 totaal, maar zou aangepast moeten worden.

Misschien lukt het iemand in VBA.

 

[thst]

Beste HSV,

Ja dat is het bijna, kolom B en C heb ik niet nodig en I dan ook niet,
als kolom H achter elkaar zou komen gescheiden door een - ben ik eruit.

Angela

 

[popipipo]

Ongeveer 500 namen

Wat wil je in vredesnaam bereiken met al die namen in één cel
Dit is toch niet meer te lezen.
Houd er wel rekening mee dat excel geen tekstverwerker is; Daar heb je WORD voor.

 

[HSV]

Ik wil je best op gang helpen Angela, je moet maar zien wat er van komt.

 

[WHER]

Angela,

Hier een VBA aanpak, maar ik zie ook niet goed in wat hier de zin van is. Hou ook rekening met volgende beperkingen:
"Length of cell contents (text) : 32,767 characters. Only 1,024 display in a cell; all 32,767 display in the formula bar"

 

[Wigi]

Dag WHER

Kleine toevoeging: Kijk ook eens naar SpecialCells: daar heb je de mogelijkheid om enkel de cellen uit een bereik te nemen die constanten bevatten (itt formules), tekst bevatten (itt tot getallen), enz.

Sub Concat()
    Dim cl As Range

    For Each cl In Range("A2:A500").[B].SpecialCells(xlCellTypeConstants, xlTextValues)[/B] 'afgekort: SpecialCells(2, 2)
        ' If cl <> "" Then
        If [I3] = "" Then
            [I3] = cl
        Else
            [I3] = [I3] & "-" & cl
        End If
        '  End If
    Next cl

End Sub

 

[WHER]

Wigi,
Bedankt voor de aanvulling. SpeciallCells zat "in m'n achterhoofd" maar ik vond niet de juiste syntax om het toe te passen, weer iets bijgeleerd.

 

[thst]

Ik weet alleen niet waar en hoe ik die aanvulling exact in de code moet plaatsen.

.SpecialCells(2, 2)

Angela

 

[trucker10]

Ik weet alleen niet waar en hoe ik die aanvulling exact in de code moet plaatsen.

.SpecialCells(2, 2)

Angela

Angela , zou het deze kunnen zijn

Sub Concat()
    Dim cl As Range

    For Each cl In Range("A2:A500").SpecialCells(2, 2)
        ' If cl <> "" Then
        If [I3] = "" Then
            [I3] = cl
        Else
            [I3] = [I3] & "-" & cl
        End If
        '  End If
    Next cl

End Sub

Edit : De oplossing kwam van Wim , wat vet getypt was moest vervangen worden . ( wigi )

 

[thst]

Dank je wel, voor al jullie hulp.

Angela