Auteur Topic: Tekst naar kolommen met meerdere lijnen (gelezen 2454 keer)

Big G · « **Gepost op:** 09 februari 2017, 10:42:46 »

Hallo,
Ik beschik over een excel waarin de resultaten staan van een online inschrijvingsformulier.
Mensen kunnen hier inschrijven om mee te doen aan een loopwedstrijd voor het goede doel.
Enkel wanneer ze inschrijven, komen alle gegevens in 1 cel van excel terecht.
Niet enkel de naam, maar ook meerdere gegevens zoals startplaats e.d.

vb
Voornaam & Naam: jos, Startplaats & Afstand: 1 km - Koninklijkelaan, Maat T-Shirt?: S
Voornaam & Naam: louis, Startplaats & Afstand: 6 km - Grote markt Antwerpen, Maat T-Shirt?: L
Voornaam & Naam: jef, Startplaats & Afstand: 3 km - Koning Albert park, Maat T-Shirt?: XL
Voornaam & Naam: tom, Startplaats & Afstand: 1 km - Aankomst, Maat T-Shirt?: XS"

Alles hierboven komt in 1 cel terecht. In dit geval zijn het 4 lopers, maar dit kan uiteraard ook veranderen.

Via tekst naar kolom, neemt hij slechts de eerste lijn en overschrijft hij de rest van de cel.
Ook via VBA lukt het me niet om deze gegevens uit elkaar te trekken.

Iemand nog een suggestie?

Alvast bedankt

SoftAid · « **Reactie #1 Gepost op:** 09 februari 2017, 11:23:58 »

Citaat van: Big G op 09 februari 2017, 10:42:46

Via tekst naar kolom, neemt hij slechts de eerste lijn en overschrijft hij de rest van de cel.

Als je "tekst naar kolommen" juist instelt, dan wordt er niets overschreven.
Selecteer de cel met gegevens en kies in Tekst naar kolommen als oorspronkelijk gegevenstype "Gescheiden".
Klik op Volgende, en vink bij "Scheidingstekens" de Komma aan en Overige, waarna je een dubbel punt zet in het vak overige.
Klik op Volgende en op Voltooien.

Dit geeft je een reeks gegevens, maar door de opbouw van het online inschrijvingsformulier krijg je uiteraard geen "Mooi" resultaat.
Via een macro is dit op te lossen, maar dat laat ik wegens tijdgebrek aan de andere helpers over.

SoftAid

Big G · « **Reactie #2 Gepost op:** 09 februari 2017, 11:37:05 »

Hij zet de eerste lijn mooi over in kolommen, maar de volgende lijnen doet hij niet, ook niet in het voorbeeld tijdens het aanvinken van de komma en het :
Tussen de verschillende ingave zit een return verstopt en hierdoor doe hij enkel het eerste invoer.

Bedankt

SoftAid · « **Reactie #3 Gepost op:** 09 februari 2017, 11:53:08 »

Hallo Big G,

als je met "in het voorbeeld" de tekst in je eerste bericht hier bedoeld, daar werkt dat bij mij ook.

Je mag de hele tekst in je "voorbeeld" kopiëren, in Excel cel A1 selecteren en kiezen voor Plakken (Ctrl + V)

Selecteer nu cel A1:A4 en pas "Tekst naar kolommen" toe zoals hierboven aangegeven. (Je hoeft niet cel per cel te doen)

De 4 cellen zullen mooi overgezet worden in kolommen.

SoftAid

pitufo · « **Reactie #4 Gepost op:** 09 februari 2017, 13:02:40 »

Hallo SoftAid,

Je hebt (ten dele) gelijk : je methode werkt als je de tekst in A1 plakt (dan zet Excel die namelijk in range A1:A4).
Maar blijkbaar staat alles in A1...

@ Big G,

Het lijkt me vrij waarschijnlijk dat er een code 10 tussen zit. Dus als enkel A1 tekst bevat en alles daaronder leeg is zou je deze kunnen proberen (anders zal je de vba-code wat moeten aanpassen) :

Code: [Selecteer]

Sub splits()

tekst = Split(Cells(1, 1), Chr(10))
For i = 0 To UBound(tekst)
    Cells(i + 1, 1) = tekst(i)
Next i

End Sub

Daarna kan je wel verder met "tekst naar kolommen"

Mvg,
pitufo

RedHead · « **Reactie #5 Gepost op:** 09 februari 2017, 21:43:22 »

Voor de aardigheid ook nog even iets gebouwd. Plak in cel A2 en verder je gegevens. Druk dan op de knop...
Dit lijkt me persoonlijk een nóg elegantere oplossing. ;-)

pitufo · « **Reactie #6 Gepost op:** 10 februari 2017, 07:58:59 »

Helemaal akkoord, RedHead, maar ik had weer tijdens het verorberen van mijn middageten (amper half uurtje pauze) vlugvlug iets gemaakt waarmee Big G alvast verder kon.

Grtjs,
pitufo

Help!

Menu

Hulp bij posten

Zoeken

Recente topics