door , gescheiden in 1 cel onder elkaar

[hanna]

Ik heb een bestand met 300 woorden door een komma gescheiden. Nu moeten ze allemaal onder elkaar, dus na de komma in 1 cel en de komma moet blijven. Kan het natuurlijk handmatig doen, maar het kan vast anders. Als ik nu plak staat het in 300 cellen in een rij en is de komma weg.
Wie O wie ??

 

[AlexCEL]

Is het een CSV bestand? Die kun je importeren in excel.

 

[hanna]

Nee, is een txt bestand, ik heb het al geprobeerd te importeren in excel (mac) maar dan nog heb ik 300 kolommen.

 

[AlexCEL]

Dat wordt een cel met 300 regels dus? Ik vermoed dat er wel wat mogelijk is met VBA, maar daar zijn andere goeroes op deze site veel beter in dan ik....

 

[hanna]

Ja. Ik hoop het

 

[pasan]

wil je alles in 1 cel? of elk woord in 1 cel en dus 300 cellen onder elkaar

 

[hanna]

Alles in 1 cel onder elkaar door een komma gescheiden.

 

[pasan]

in mijn voorbeeld staat de lijst met woorden die gescheiden worden door een komma in cel [A1]
in[B2] komen deze woorden onder elkaar te staan.

Sub comma()
 For i = 0 To UBound(Split([A1], ","))
  Cells(2, 2) = Cells(2, 2) & Split([A1], ",")(i) & Chr(10)
 Next
End Sub

 

[hanna]

Oke, maar ik krijg ze niet in 1 cel [a1] excel (mac) zet het in kolommen als i het importeer en als ik het plak.

 

[snb]

sub M_snb()
   sheet1.cells(1)=createobject("scripting.filesystemobject").opentextfile("G:\OF\voorbeeld.txt").readall
End Sub

 

[pasan]

na het importeren zitten er ook geen komma's in denk ik, en elk volgend woord staat in de volgende kolom (1e regel in 300 cellen staan 300 woorden)
en jij wil dus elk woord met erachter een komma onder elkaar in 1 cel hebben

 

[hanna]

Precies!

 

[pasan]

Zo?
zonder lege cellen er tussen in de eerste rij

Sub enkeleCel()
 For i = 1 To Range("A1").End(xlToRight).Column
  Cells(2, 2) = Cells(2, 2) & Cells(1, i) & "," & Chr(10)
  Columns(2).ColumnWidth = IIf(Len(Cells(1, i)) > Columns(2).ColumnWidth, Len(Cells(1, i)), Columns(2).ColumnWidth)
 Next
End Sub

 

[hanna]

Perfect :thumb: het werkt.

Hartstikke bedankt.

 

[hanna]

Nu staat het in een cel. Nu nog onder elkaar.

 

[pasan]

komt het niet onder elkaar?
volgens mij wordt het tijd voor een voorbeeld bestandje met fictieve gegevens maar wel zoals het er bij jou ook uit ziet

 

[hanna]

Nee, ik was te voorbarig, het werkt. Sorry, excel liep vast, dus even alles opnieuw gedaan.

Bedankt, bedankt.

 

[pasan]

Okee, succes ermee

 

[hanna]

Het waren de extensies van landen (url) die moesten onder elkaar voor een dropdown in een website.