Tekst uit één kolom samenvoegen

[Plastiek]

Goedemiddag,

Al lange tijd ben ik op zoek naar de oplossing voor het volgende probleem:

Het samenvoegen van tekst uit één kolom.
Ofwel de tekst uit A1, A2, A3, A4... in één regel in cel B1.

Ik heb een bestand waarin p.m. 1000 waarden staan.
Die moet ik allemaal in één cel hebben om er verder mee te kunnen werken.

Daarvoor ken ik de optie &" "&.. maar, dan moet ik dat 1000 keer invoeren.
Er is ongetwijfeld een makkelijkere oplossing voor.

Ik wil dus van:
A1: 656487
A2: 514665
A3: 546546
A4: 356894
A5: Etc.
A6: Etc.

Naar

B1: 656487; 514665; 546546; 356894; Etc.; Etc; ... x 1000...

In de bijlage een klein voorbeeld.

Bekijk bijlage Tekst samenvoegen één kolom.xlsx

Alvast bedankt!

Groet,

 

[edmoor]

Bijvoorbeeld zo, met een UDF:
Bekijk bijlage Tekst samenvoegen één kolom-1.xlsm

De UDF zoals in het document:

Function Kolom2Cel(target As Range) As String
    Dim tmp As String
    For Each cel In target
        tmp = tmp & cel.Value & ";"
    Next
    Kolom2Cel = Left(tmp, Len(tmp) - 1)
End Function

Hierbij opmerkend dat het voorbeeld zoals gesteld in #1 afwijkt van het voorbeeld in het document van #1.

 

[snb]

Ben je bekend met het opslaan van een excelbestand als csv-bestand ?

Weet je dat een cel in een werkblad slechts een beperkt aantal tekens kan bevatten/tonen ?

 

[edmoor]

Maximum aantal tekens in een cel is 32.767, waarvan Excel alleen de eerste 1.024 zal tonen.
De vraag is dus inderdaad, wat probeer je te bereiken?

 

[VenA]

Ik doe het 'altijd' zo

 

[Plastiek]

Ik had verwacht dat er een vrij eenvoudige 'door te trekken' functie zou zijn waarmee ik dit zou kunnen doen.

Met de teken-beperking van de cellen, kom ik helaas sowieso niet verder...

Inmiddels heb ik een (meer) praktische oplossing gevonden met een combi van Excel en Word.

It 'll do.

Bedankt voor het meedenken!