Sorteren op achternaam

[RenateE]

Hallo,

Kan iemand mij vertellen hoe je een kolom moet sorteren oplopend op achternaam als in de kolommen op deze manier de namen staan: Dhr. J.K.L. Janssen

Groet,
Renate

 

[danny147]

Beste RenateE

Plaats de volgende formule na de namen.

=RECHTS(A1;LENGTE(A1)-VIND.ALLES("*";SUBSTITUEREN(A1;" ";"*";LENGTE(A1)-LENGTE(SUBSTITUEREN(A1;" ";"")))))

Selcteer dan kolom B naar kolom A en sorteer oplopend.
Verwijder dan de kolom met de formules in.

Zie ook bestandje.

Groetjes Danny. :thumb:

 

[enijhuis]

Hoi Renate,

Je zult in ieder geval een hulpkolom moeten gebruiken daar je de waarde moet splitsen in Aanhef, Initialen en Achternaam. Je zou kunnen splitsen o.b.v. een gevonden spatie in de waarde o.i.d.
Er mogen dan gaan spaties staan in de intialen of in de aanhef anders wordt dit al lastig.
De moeilijkheid daarna is echter om te bepalen wat een achternaam is. Enkele issues:
- Hoe ga je om met 'de Jong' en 'van Puffelen', etc?
- Hoe ga je om met dubbele achternamen (zonder verbindingsstreepje)?
- Hoe ga je om met een combinatie van beiden?
- etc., etc.
Je ontkomt er dus niet aan om alle namen hoe dan ook allemaal handmatig na te lopen.

 

[snb]

met de volledige namen in kolom A en een lege kolom B komen de achternamen in kolom B.

Sub splits()
 sq=columns(1).specialcells(xlcelltypeconstants).resize(,2)
 for j=1 to ubound(sq)
   st=split(sq(j,1))
   if ubound(st)>-1 then sq(j,2)=st(ubound(st))
 next
 range("A1")=sq
End Sub

 

[danny147]

Beste snb

Bij mij geeft hij een foutmelding op de volgende regel.

 sq = Columns(1).SpecialCells(xlCellTypeConstants).Resize(, 2)

Ligt het aan de code of aan excel 2007.

@ RenateE

Voeg eens een bestandje bij met wat namen erin die in uw lijstje voorkomen.

Groetjes Danny. :thumb:

 

[RenateE]

Ik ben gewoon begonnen bij de eerste uitleg. Ik dacht: als ik daar niet uitkom ga ik verder naar de tweede...

Maar het is toch gelukt op de manier zoals Danny het uitlegde..

Bedankt allemaal voor de tips.. :thumb:

Groet,
Renate