teks in cel omdraaien

[irene30]

Hallo,

Ik heb al eens met hetzelfde probleem eerder gezeten en toen ben ik er wel zelf achtergekomen hoe het moet, maar kom er nu niet meer uit.

Mijn probleem:
Er staat tekst in een cel warbij de lidwoorden achteraan staan ipv vooraan. Ik wil de laatste tekens dus vooraan hebben ivp achteraan
Voorbeeld:
Regenboog De - wil ik hebben De Regenboog
Kompas Het - wil ik hebben Het Kompas
Wagemaker Ds. J.L. de - wil ik hebben Ds. J.L. de Wagemaker

De eerste twee moet sowieso kunnen (het is me ooit dus wel gelukt). Het zijn ruim 1500 regels, beetje veel werk om het een voor een te plakken en knippen ;-)

Wie kan mij helpen?!

Groetjes Irene

 

[nire]

Wat dacht je van deze:

=LEFT(A1;SEARCH(" ";A1;1))&RIGHT(A1;LEN(A1)-SEARCH(" ";A1;1))

 

[Wigi]

De eerste twee moet sowieso kunnen

De functionaliteit Data > Tekst naar kolommen, is ook een mogelijkheid om op een spatie te splitsen.

Wigi

 

[irene30]

Wat een snelle reactie. Ik ga ermee aan de slag thanx!

 

[Gotty]

Wat dacht je van deze:

=LEFT(A1;SEARCH(" ";A1;1))&RIGHT(A1;LEN(A1)-SEARCH(" ";A1;1))

Hoi nire, deze formule heb ik uitgeprobeerd op de volgende manier:

=LINKS(A1;ZOEKEN.SPEC(" ";A1;1))&RECHTS(A1;LENGTE(A1)-ZOEKEN.SPEC(" ";A1;1))

Maar ik krijg #NAAM? als antwoord terwijl een andere formule (die ik een poosje geleden zelf nodig had in een cursus) wel werkt. Zie dit bestand waarin ik beide formules laat zien.

 

[HSV]

Gotty,

=zoeken.spec(

moet zijn

=vind.spec(

Heb verder niet gekeken of de code werkt.

 

[nire]

Verschillende talen voor formules zouden verboden moeten worden. :evil:

 

[Wigi]

Verschillende talen voor formules zouden verboden moeten worden. :evil:

De helpfunctie gebruiken daarentegen

 

[HSV]

Deze dan?

=RECHTS(A1;LENGTE(A1)-VIND.ALLES(" ";A1))&" "&LINKS(A1;VIND.ALLES(" ";A1)-1)

Zie bestandje.

 

[Gotty]

Weer eens niet goed gekeken bij de Functievertaler. Ik keek te veel naar de duitse variant

. Maar goed, ik ga deze eens lekker evalueren, bedankt.

 

[Gotty]

Deze dan?

=RECHTS(A1;LENGTE(A1)-VIND.ALLES(" ";A1))&" "&LINKS(A1;VIND.ALLES(" ";A1)-1)

Zie bestandje.

Het viel mij tijdens het evalueren (pas) op dat er eigenlijk niet veel veranderd, voor zo ver ik het snap dan... Maar deze werkt inderdaad beter. Jij ook bedankt.

 

[snb]

of gebruik een simpele funktie:

function naam(tst)
  sq=split(tst)
  naam=trim(replace(tst,sq(0),"") & " " & sq(0))
end function

 

[Warme bakkertje]

@snb kleine aanpassing

function naam(tst)
  sq=split(tst)
  [COLOR="Red"]naam[/COLOR]=trim(replace(tst,sq(0),"") & " " & sq(0))
end function

Voor het overige werkt perfect

 

[snb]

@rudi

bedankt !

 

[HSV]

of gebruik een simpele funktie:

function naam(tst)
  sq=split(tst)
  naam=trim(replace(tst,sq(0),"") & " " & sq(0))
end function

Waar zet je deze "simpele" functie neer? @Rudi of @snb.
In een module of in ThisWorkbook of in Blad1.
Ik heb er simpelweg te weinig ervaring mee, en krijg het niet aan de praat.
Moet ik er nog een knop aan toevoegen.

Ik zie jullie reactie graag tegemoet.

 

[snb]

Zet de funktie in een module.

zet in de cel waarin je het resultaat wil hebben (bijv. A2):
=naam(A1)

daarbij staan de gegevens die 'omgedraaid' moeten worden in cel A1

 

[HSV]

Zet de funktie in een module.

zet in de cel waarin je het resultaat wil hebben (bijv. A2):
=naam(A1)

daarbij staan de gegevens die 'omgedraaid' moeten worden in cel A1

@snb,

Bedankt voor je reactie en uitleg, en dat zo’n korte code zo mooi werkt.