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 498 keer)

0 leden en 1 gast bekijken dit topic.

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 413
  • 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 Veerj

  • Lid
  • *
  • Berichten: 79
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)
« Laatst bewerkt op: 03 juni 2021, 11:06:20 door Veerj »

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 18.915
  • 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 :)             
 
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: 413
  • 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 Veerj

  • Lid
  • *
  • Berichten: 79
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: 413
  • 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 Veerj

  • Lid
  • *
  • Berichten: 79
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 Veerj

  • Lid
  • *
  • Berichten: 79
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)

 


www.combell.com