Namen wisselen en sorteren; macro?

[Evelthoven]

Goedemiddag iedereen,

In kolom A heb ik een aantal namen staan (voornaam met achternaam).
Graag zou ik nu twee dingen willen zien.
a. in dezelfde kolom nu deze namen, maar dan eerst achternaam en daarna voornaam
b. deze kolom moet gesorteerd worden op achternaam.

bijv:"

Jan Smeets
Peter van de Heuvel
Lieke de Leeuw

zou moeten worden

van de Heuvel, Peter
de Leeuw, Lieke
Smeets, Jan

Is er iemand die hiervoor een macro kan schrijven?

Alvast bedankt.

Met vriendelijke groeten,
Eric

 

[Demeter]

Hoi,

Beetje google kan geen kwaad om een volledig antwoord te vinden
Kom ik snel op volgende hits:

Macro welke je zelf nog kan tunen naar je genoegen.
http://www.cpearson.com/excel/firstlast.htm

Met functies in excel, geen vba nodig
http://www.extendoffice.com/documents/excel/824-excel-flip-first-last-name.html

Succes.

grt.
Demeter

 

[OctaFish]

Overigens hou je er een rare sortering op na; als je op Achternaam + voornaam wilt sorteren, zou je lijst er zo uit moeten zien:
Heuvel, Peter van de
Leeuw, Lieke de
Smeets, Jan

 

[HSV]

Zoals @Octafish reeds opmerkte.

Sub hsv()
Dim sq, i As Long
sq = Cells(1).CurrentRegion.Value
  For i = 1 To UBound(sq)
   sq(i, 1) = StrReverse(Split(StrReverse(sq(i, 1)))(0)) & ", " & Replace(sq(i, 1), StrReverse(Split(StrReverse(sq(i, 1)))(0)), "")
  Next i
 Range("G1").Resize(UBound(sq)) = sq
 Range("G1").Sort Range("G1"), , , , , , , xlGuess
End Sub

Sub hsvtwee()
Dim sq, i As Long
sq = Cells(1).CurrentRegion.Value
  For i = 1 To UBound(sq)
   sq(i, 1) = Replace(sq(i, 1), Split(sq(i, 1))(0), "") & ", " & Split(sq(i, 1))(0)
  Next i
 Range("G1").Resize(UBound(sq)) = sq
 Range("G1").Sort Range("G1"), , , , , , , xlGuess
End Sub

 

[sylvester-ponte]

Eric, er is nu van uit gegaan dat er maar 1 voornaam en 1 achternaam is.
zie gele cellen:

 

[Evelthoven]

Iedereen die met mijn probleem bezig is geweest hartelijk dank. Met alle informatie kan ik zeker verder.

Groeten,
Eric