Tekstregels per cel

[P. Men]

Goedemiddag!

Volgende probleem: Er is 1 Cel waar een tekst in staat met verschillende regels. Bijvoorbeeld:


De volgende punten:
- Regel 1
- Regel 2
- Regel 3

Deze tekst staat dus in 1 cel.... Nu wil ik op de een of andere manier deze tekst per regel, via een formule of zo, in nieuwe cellen krijgen.
Dus:
Cel1: 'De volgende punten'
Cel2: '- Regel 1'
Cel3: '- Regel 2'
Cel4: '- Regel 3'

Heeft iemand een manier???

 

[Ginger]

P.Men, als 'workaround' zou je die betreffende cellen kunnen selecteren en copieren. Plak vervolgens die cellen in Word. Ook daar verschijnen je cellen. Selecteer deze en verwijder de 'tabel' (in de engelse versie: Table > Convert > Table To Text). Je houdt dan de aparte regels over. Die kan je dan weer terugplakken in Excel.

Groet, Leo

 

[CorVerm]

Dat doe je door gebruik te maken van de wizzard Tekst naar kolommen, te vinden onder het menu Data. Als op de een of andere manier de tekst is gescheiden, door b.v. een komma o.i.d., kun je kiezen voor de optie "gescheiden". Is de tekst niet gescheiden dan kies je voor "Vaste breedte" de pijltjes die in de wizzard verschijnen, als je op Volgende het geklikt, kun je verwijderen door ze naar boven te verslepen. Tenminste als er een teveel aan pijltjes worden weergegeven. Volg de wizzard verder.

Mocht je Excel 2007 gebruiken dan vind je de optie Tekst naar kolommen onder "Gegevens" in het lint.

 

[richard1970]

@Cor
Hij zoekt eigenlijk een optie 'Tekst naar regels'
De tekst is gescheiden door de actie Alt+Enter.

Richard

 

[Wigi]

Hallo allen

Zo zou ik het doen:

Sub CelinhoudUitElkaarHalen()

    Dim l As Long
    Dim arrCelInhoud
    Dim rCel As Range
    Dim rOutput As Range
    
    Set rCel = Application.InputBox("Selecteer de te splitsen cel.", "Cel aanduiden", ActiveCell.Address, Type:=8)
    Set rOutput = Application.InputBox("Selecteer de cel waar de output onder elkaar moet komen.", _
        "Cel aanduiden", ActiveCell.Address, Type:=8)
    
    arrCelInhoud = Split(rCel.Value, Chr(10))
    
    For l = LBound(arrCelInhoud) To UBound(arrCelInhoud)
        rOutput.Offset(l) = arrCelInhoud(l)
    Next

End Sub

Er is wel nog geen code bij om errors te ondervangen. Dat mag de topic starter nog doen Of iemand anders die zich geroepen voelt (en er de tijd voor heeft).

Wigi

 

[CorVerm]

@ Richard,
Heb idd de vraag verkeerd geïnterpreteerd.

@ Wim,
Jouw code werkt (hoe kan het ook anders) goed, mits de tekst is gescheiden door Alt Enter.

 

[Wigi]

@ Wim,
Jouw code werkt (hoe kan het ook anders) goed, mits de tekst is gescheiden door Alt Enter.

Klopt. Indien de scheiding door iets anders is, verander dan de Chr(10) in het gewenste.