Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: woorden wisselen in een cel  (gelezen 13194 keer)

0 leden en 1 gast bekijken dit topic.

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
woorden wisselen in een cel
« Gepost op: 03 juni 2021, 10:26:15 »
Ik heb een lijst met namen en voornamen in 1 cel.
Nu wil ik voornaam en naam wisselen.
Zou ik kunnen doen met tekst naar kolommen en opnieuw samenstellen.

Google vond enkele formules die het zouden moeten oplossen, maar die geven bij mij steeds een error:

=TRIM(MID(b2,SEARCH(" ",b2)+1,250))&" "&LEFT(b2,SEARCH(" ",b2)-1)
of
=RIGHT(A2,LEN(A2)-FIND(" ",A2)) & " " & LEFT(A2,FIND(" ",A2)-1)
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: woorden wisselen in een cel
« Reactie #1 Gepost op: 03 juni 2021, 10:57:39 »
Heb je een lijst met voorbeelden?
Soms komt het wel eens voor dat iemand ... van den ... heet

Als het alleen namen met 2 woorden zijn(wat ik niet verwacht):

=MID(A1;FIND(" ";A1)+1;20) & " "&LEFT(A1;FIND(" ";A1))
of met udf

Function jveer(cell)
  c00 = Split(cell)
  jveer = c00(1) & " " & c00(0)
End Function

Invoeren als =jveer(A1)

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: woorden wisselen in een cel
« Reactie #2 Gepost op: 03 juni 2021, 11:09:21 »
Hallo Adri,

als je formules over neemt van het internet dan moet je steeds rekening houden met de taal waarin die code is opgesteld.

Als je een Europese Excel hebt (dus ook een Engelstalige) dan nog moet je als scheidingsteken de komma vervangen door de puntkomma.
Heb je een Nederlandse Excel, dan moet je de functies ook vertalen naar de Nederlandse functies.
Zo wordt
=RIGHT(A2,LEN(A2)-FIND(" ",A2)) & " " & LEFT(A2,FIND(" ",A2)-1)dan
=RECHTS(A2;LENGTE(A2)-VIND.SPEC(" "; A2)) & " " & LINKS(A2;VIND.SPEC(" ";A2)-1)

En zoals Veerj terecht opmerkt kan het gebeuren dat er namen uit 2 of meer delen bestaan (Jean Paul Van Der Valk).
Dan heb je complexere formules nodig.

Groeten,

:) SoftAid :)             
 
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: woorden wisselen in een cel
« Reactie #3 Gepost op: 03 juni 2021, 11:33:42 »
De vertaling werkt, ook met namen als Van Bijlen Coleta, van Staey Jef....
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: woorden wisselen in een cel
« Reactie #4 Gepost op: 03 juni 2021, 11:59:05 »
Deze UDF doet het in ene

Function jveer(cell)
 c00 = Split(cell)
 jveer = Mid(Replace(cell, c00(0), "") & " " & c00(0), 2, 100)
End Function

Invoeren als =jveer(A1)

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: woorden wisselen in een cel
« Reactie #5 Gepost op: 03 juni 2021, 16:29:08 »
Veerj,
wil uw oplossing ook wel eens proberen.
Waar moet die function ingebracht worden?
Ontwikkelaars, Visual Basic, op betreffende blad?
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: woorden wisselen in een cel
« Reactie #6 Gepost op: 03 juni 2021, 17:43:18 »
Vba inderdaad en dan achter een module. Die moet je even aanmaken met rechtermuisknop

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: woorden wisselen in een cel
« Reactie #7 Gepost op: 05 juni 2021, 13:25:51 »
Office 365 oplossing met formule:

=LET(x;LINKS(A1;VIND.SPEC(" ";A1));SUBSTITUEREN(A1;x;"")&" "&x)

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: woorden wisselen in een cel
« Reactie #8 Gepost op: 25 juni 2021, 10:10:47 »
Probeer nu ook de Naam weg te laten en alleen de voornamen weer te geven:
Janssen Louis Jef Antoon
zou alleen Louis Jef Antoon moeten weergeven.
Probeerde met
=RECHTS(I904;VIND.SPEC(" ";I904)-1)
Dat lukte met de eerste, maar als ik dan doorvoer, dan krijg ik alleen fragmenten...
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: woorden wisselen in een cel
« Reactie #9 Gepost op: 25 juni 2021, 10:42:47 »
Adri, plaats ff je voorbeeldbestandje. Je hebt het nu over "alleen bij de eerste" maar dát kunnen wij niet zien omdat we niet naast je zitten. ;)
Dus graag laten zien waar je mee bezig bent (in een Excel bijlage!!!)
______________________________

Groet, Leo

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: woorden wisselen in een cel
« Reactie #10 Gepost op: 25 juni 2021, 11:25:13 »
Inderdaad is een voorbeeld handig. Vooral omdat er meerdere varianten kunnen zijn mbt namen...

Je kunt in ieder geval deze proberen

=MID(A1;FIND(" ";A1)+1;20)

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: woorden wisselen in een cel
« Reactie #11 Gepost op: 25 juni 2021, 13:09:21 »
Hierbij een voorbeeld.
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: woorden wisselen in een cel
« Reactie #12 Gepost op: 25 juni 2021, 13:25:41 »
Dit is de oplossing van van veerj in het Nederlands.
=DEEL(I933;VIND.SPEC(" ";I933)+1;30)

Alleen bij namen met Van of De vooraan, krijg ik dan ook nog een deel van de Naam + voornamen.
Van Looy Karel geeft dus Looy Karel.
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: woorden wisselen in een cel
« Reactie #13 Gepost op: 25 juni 2021, 14:17:28 »
Je zult alle mogelijke alternatieven in dit geval moeten afvangen

=MID(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1;"Van de ";"");"Van ";"");"De ";"");FIND(" ";SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1;"Van de ";"");"Van ";"");"De ";""))+1;100)

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: woorden wisselen in een cel
« Reactie #14 Gepost op: 25 juni 2021, 14:17:54 »
Adri, dit is wat Veerj in bericht 2 al aangaf...  ;)
Splitsen van namen is bijna niet te automatiseren. Daar zal je als mens echt nog een correctieslag overheen moeten doen. Of je moet een heel erg uitgebreid programma maken waarin je alle tussenvoegsel gaat benoemen. Ik ben daar heel veel jaren geleden als spielerij mee bezig geweest en daarna net zo hard weer gestopt. Daarbij... wat tussenvoegsels voor Nederland zijn, hoeft dat weer niet voor België te gelden.
______________________________

Groet, Leo

 


www.combell.com