deel cel kopieren naar andere cel

[2Birdsmedia]

Goedemiddag!

Ik moet in mijn .CSV bestand een deel van een cel kopiëren naar een andere cel maar hij pakt niet het juiste gedeelte van de cel.

Hieronder een voorbeeld van de teksten. Het is de bedoeling dat het formaat eruit gehaald zal worden en in een nieuwe kolom erin geplaatst word.

Ontplofbaar e vinyl 25x37mm
Milieugevaarlijk n vinyl 105x148mm
Schadelijk onbedrukt vinyl per 25 stuks 24x24mm



Ik heb een andere forumvraag erbij gepakt en daarvan de code genomen. Maar dan pakt hij alleen de eerste 3 woorden, dus ik heb waarschijnlijk een klein dingetje niet goed staan. Hieronder de code zoals ik hem nu heb. Ik heb de code op onderstaande regel gebruikt. Hij neemt alleen over: Ontplofbaar e vinyl

Ontplofbaar e vinyl 25x37mm

=ALS(ISFOUT(LINKS(J147;VIND.ALLES("25x37mm";J147)-1));"25x37mm";LINKS(J147;VIND.SPEC("25x37mm";J147)-1))


Graag hoor ik of iemand een oplossing heeft.
Dank alvast! Bianca Bisschop

 

[zapatr]

Ervan uitgaande dat ook alle andere cellen een gelijksoortige indeling hebben:

=RECHTS(J147;LENGTE(J147)-VIND.SPEC("^";SUBSTITUEREN(J147;" ";"^";LENGTE(J147)-LENGTE(SUBSTITUEREN(J147;" ";"")))))

 

[2Birdsmedia]

Bedankt. Dit werkt! Maar nu zijn ze niet helemaal consequent met de maten achteraan. Soms staan ze ook in het midden zoals hier:

CO2 Blusser gebruiksaanw. pp 80x200MM met bedrijfsnaam


Is daar nog een makkelijke code voor?

 

[zapatr]

Een makkelijke niet.
Je zult wel al begrepen hebben dat je altijd wat nodig hebt om te bepalen waar het gedeelte dat je uit de tekst wil halen, begint en waar het eindigt. Als dat per tekst verschilt, dan is er geen beginnen aan. Het blijft dan altijd behelpen, want als je de oplossing hieronder gebruikt, dan kom je waarschijnlijk weer met de mededeling dat de indeling van de tekst soms toch weer anders is. Maar probeer het maar en kijk hoever je komt, nu niet met de tekst in J147 maar in A1 en onderliggende cellen in kolom A.

=RECHTS(LINKS(A1;VIND.SPEC("mm";A1)+1);LENGTE(LINKS(A1;VIND.SPEC("mm";LINKS(A1;VIND.SPEC("mm";A1)+1))+1))-VIND.SPEC("^";SUBSTITUEREN(LINKS(A1;VIND.SPEC("mm";A1)+1);" ";"^";LENGTE(LINKS(A1;VIND.SPEC("mm";A1)+1))-LENGTE(SUBSTITUEREN(LINKS(A1;VIND.SPEC("mm";A1)+1);" ";"")))))

 

[2Birdsmedia]

Hij werkt! Heel erg bedankt! en enorm extra bedankt voor de snelle reactie. Fijn weekend alvast, Bianca Bisschop

 

[zapatr]

Dank voor de reactie.
Voor jou ook een goed weekend, geniet van het mooie weer!