cel splitsen

[bernie6]

Hallo

In een excellijst heb ik in de A kolom zowel familienaam in hoofdletters als voornaam (beginhoofdletter, de rest in kleine letters); sommige familienamen zijn in 2 of 3 delen (DE SMET, VAN DE VOORDE); nu zou ik graag de familienaam afzonderlijk hebben in 1 cel en de voornaam in een andere cel; je kan wel via gegevens -> tekst naar kolommen, de cellen volgens spatie opsplitsen in diverse cellen maar dit lost mijn probleem van de familienaam niet op
Bijkomend probleem is dat straatnaam en nummer in eenzelfde cel staan; ook dit zou opgesplitst moeten worden.
Zou er hiervoor een oplossing bestaan?

Met dank

 

[Conseclusie]

Zeker; maar zonder voorbeeldbestand wordt een optimale oplossing erg lastig.

 

[bernie6]

hierbij een klein voorbeeldje

 

[Conseclusie]

Met een UDF is het meest handig:

Function Achternaam(NaamVolledig As String) As String
For x = 1 To Len(NaamVolledig)
    If Mid(NaamVolledig, x, 4) Like "[A-Z]" & " " & "[A-Z]" & "[a-z]" Then
        Achternaam = Left(NaamVolledig, x)
        Exit Function
    End If
Next x
End Function
Function Straatnaam(Adres As String) As String
For x = 1 To Len(Adres)
    If Mid(Adres, x, 1) Like "[0-9]" Then
        Straatnaam = Left(Adres, x - 2)
        Exit Function
    End If
Next x
End Function

Zie bijlage

 

[bernie6]

bedankt voor je hulp; echter wanneer ik de code voor die UDF inlas krijg ik volgende foutmelding (zie bijlage)

 

[ExcelAmateur]

In de het begin van de rode regel staat de "F" niet.

 

[bernie6]

mijn excuses; inderdaad; prachtig opgelost

veel dank

bernard