Auteur Topic: Tekst naar rijen, i.p.v. Tekst naar kolommen (gelezen 169 keer)

SoftAid · « **Gepost op:** 08 maart 2023, 16:56:48 »

Hallo meesterbreinen,

Tekst naar kolommen is natuurlijk bekend, maar ik zou nu heel graag een tekst naar rijen zetten, en dit met de punt als scheidingsteken. Is zo iets mogelijk in Excel (of Word, maar liever Excel)

Dank bij voorbaat !!

SoftAid

popipipo · « **Reactie #1 Gepost op:** 08 maart 2023, 17:47:22 »

Een indirecte methode zou kunnen zijn eerst de bekende tekst naar kolommen en daarna een 2e handeling van transponeren

JEC · « **Reactie #2 Gepost op:** 08 maart 2023, 17:50:36 »

Kan je een klein voorbeeldje plaatsen met gewenste resultaten?

Je had geen O365 toch?

SoftAid · « **Reactie #3 Gepost op:** 08 maart 2023, 17:54:15 »

Hallo popipipo,

Daar ging mijn gedachte ook naar uit. Ik had dit best even geprobeerd alvorens de vraag te stellen op het forum.
Luiheid, vermoed ik

Jim,

geen 365, een voorbeeld heeft weinig zin gewoon een groot stuk tekst uit de (digitale) krant die ik wil bewaren in een Excel bestand. Maar nu zet hij die tekst allemaal in A1.

Als er een toverspreuk voor bestaat dan leer ik graag bij

SoftAid

MollyVH · « **Reactie #4 Gepost op:** 08 maart 2023, 17:57:03 »

Hallo SoftAid,

Vooral als een klein beetje vba toegelaten is

mag dat geen enkel probleem zijn.

Mvg,
Molly

Zag net je nieuwe post. Je plakt dus zelf enkel een tekst in A1 die per zin in een rij moet komen?

SoftAid · « **Reactie #5 Gepost op:** 08 maart 2023, 18:00:48 »

Hallo Molly,

mag gerust met een macro, het is voor meermaals te gebruiken.

Is inderdaad een heel artikel uit een web-krant die ik wil bewerken in een Excel-bestand (2007)

SoftAid

JEC · « **Reactie #6 Gepost op:** 08 maart 2023, 18:01:57 »

Code: [Selecteer]

Sub jec()
a=split([a1],”.”)
[a1].resize(ubound(a)+1) = application.transpose(a)
End sub

Even de aanhalingstekens om de punt vervangen door niet-mac tekens. Had alleen een telefoon bij de hand

SoftAid · « **Reactie #7 Gepost op:** 08 maart 2023, 18:13:42 »

Hallo Jim,

doet zijn werk prima. Enkel verwijderd hij al de punten op het einde van een zin. Het oog wil ook wat...

SoftAid

MollyVH · « **Reactie #8 Gepost op:** 08 maart 2023, 18:27:25 »

En... vanaf rij 2 zet hij er een spatie voor.
Dus omwille van het oog:

Code: [Selecteer]

Sub splits_verticaal()

t = Split(Cells(1), ". ")
For i = 0 To UBound(t) - 1
    t(i) = t(i) & "."
Next i
Cells(1).Resize(UBound(t) + 1) = Application.Transpose(t)

End Sub

Als het zo niet helemaal goed is ligt het aan een slecht geschreven begintekst

Groetjes,
Molly

SoftAid · « **Reactie #9 Gepost op:** 08 maart 2023, 18:33:13 »

Perfect Molly.

Ik had zelf al getracht die punt toe te voegen, maar lukte me niet. Dom geboren, nooit bijgeleerd....

Jim en Molly, beiden hartelijk dank. Zal ik in de toekomst niet meer telkens handmatig moeten splitsen.

Weer eentje blij

SoftAid

RedHead · « **Reactie #10 Gepost op:** 08 maart 2023, 21:34:20 »

SoftAid, wellicht toch 'ns gaan kijken of je MS365 kan installeren? De functie TextSplit zou dit zo voor je hebben gedaan...
https://support.microsoft.com/en-us/office/textsplit-function-b1ca414e-4c21-4ca0-b1b7-bdecace8a6e7

Echt, deze versie heeft zoooooveel gave nieuwe functies.

SoftAid · « **Reactie #11 Gepost op:** 08 maart 2023, 22:29:49 »

Hallo Leo,

een Boeing 707 bied ook ontzettend veel meer mogelijkheden voor een Piper-piloot.
Maar kan hij die mogelijkheden ook benutten, onthouden, als hij nu al regelmatig vergeet hoe zijn Piper werkt, en welke instrumenten daar in zitten.

Ik klaag niet hoor, ik ben blij met wat ik heb.
Maar ik heb spijtig genoeg wel een redelijk goede processor, maar te weinig geheugen om die te benutten.

Ik ga toch wel eens een 2019 of zo installeren, just for fun

Maar al die opties van een 365 is voor mij niet nodig. Ik vrag het dan wel even aan jullie

Nog een fijne avond, en toch erg bedankt.

SoftAid

Help!

Menu

Hulp bij posten

Zoeken

Recente topics