NAW (namen en adres) splitsen

[helpmijwz09]

Wie kan mij helpen...
Graag wil ik hulp hebben van Excel-kanjers (macro/VBA code) om de namen en adresgegevens te spitsen naar afzonderlijke kolommen;
Zie bijlage

NAMEN:
Voorletters, (gescheiden met punten)
Tussenvoegsel
Achternaam

ADRES:
Straatnaam
Huisnummer
Huisnummer toevoeging

Ben al een tijdje bezig maar kom er niet aan uit.
Heb wel de postcode-tabel kunnen splitsen (=DEEL en =LINKS...makkelijk want dat zijn vaste waardes 1234 AA)
Alvast bedankt (reacties kunnen ook verzonden worden naar: wilzand2008@gmail.com)

 

[Karel 2]

Hallo,

Voor mij is dit ook een veelvoorkomend probleem.
Ik heb een drietal formules gemaakt die uit een cel voornaam, achternaam en voorvoegsel kunnen halen.
Het is niet waterdicht want het systeem kijkt naar spaties in de totale naam hierdoor kom je in de problemen met dubbele voor of achternamen.
Dit is wel op te lossen met een koppelstreepje tussen de namen maar het vergt toch weer handwerk.

Ik hoop dat je hier wat mee kan, Karel

Function voornaam(totaal)
    a = InStr(1, totaal, " ")
    voornaam = Left(totaal, a)
End Function

Function achternaam(totaal)
    b = InStrRev(totaal, " ")
    achternaam = Right(totaal, Len(totaal) - b)
End Function

Function voorvoeg(totaal)
    a = InStr(1, totaal, " ")
    b = InStrRev(totaal, " ")
    If b > a Then voorvoeg = Mid(totaal, a + 1, b - a)
End Function

 

[snb]

De variatie in de struktuur en schrijfwijze van namen en adressen is te groot om hiervoor een sluitend algoritme te schrijven.

 

[helpmijwz09]

Dank voor de oplossing

Hartelijk dank voor de oplossing!
Ik heb namelik deze functie in VBA geinporteerd en het werkt (als functie) prima!

Graag zou ik dit als macro willen toeveoegen in mijn werkbalk macro's om zodoende middels menu te selecteren.
Ik zal hierop verder gaan puzzelen.

Je hebt me enorm geholpen,

dank!

gr, William:thumb::thumb: