woorden in een veld van plaats verwisselen

[brandernl]

Ik had mijn vraag op het verkeerde deel van het forum geplaatst.
Het gaat om een rapportgenerator (Crystal Reports) die gegevens uit een database (niet Excel) haalt.

In Nederland zijn we gewend om tussenvoegsels van namen bij (alfabetische) sortering achter de naam te zetten, dus "de Vries" wordt "Vries, de"; "de Boer" wordt "Boer, de".
Nu moet ik deze namen gebruiken in een rapport, maar als daar dan staat "U heeft een afspraak met dr. Vries, de", dan staat dat niet netjes. Hoe kan ik in VBA ervoor zorgen dat er correct "de Vries" komt te staan?
Ik heb op het forum gezocht en bij WiGi op de site wel wat gevonden over tekst splitsen, maar die functie is niet wat ik zoek en ik heb een VBA code nodig geen functie

 

[Wigi]

En heb je deze pagina gelezen?

www.wimgielis.be, dan Excel, dan VBA-code, dan "Sorteren in een cel"

Daar ga je genoeg elementen kunnen uit halen om het voor mekaar te krijgen. Vooral het werken met Join, Split en Arrays.

Wigi

 

[brandernl]

Ik had hem al op opgelost gezet, maar vergeten de oplossing te geven

Sub DraaiOm()
    Dim Scheidingsteken As String
    Dim NaamInVeld As String
    Dim NaamOpRapport As String
    Dim PositieScheidingsteken As Integer
    Dim LinksVanScheidingsteken As String
    Dim RechtsVanScheidingsteken As String

    NaamInVeld = Range("A1").Value
    PositieScheidingsteken = InStr(NaamInVeld, InputBox("Geef het scheidingsteken op"))
    LinksVanScheidingsteken = Left(NaamInVeld, PositieScheidingsteken - 1)
    RechtsVanScheidingsteken = Mid(NaamInVeld, PositieScheidingsteken + 2)
    NaamOpRapport = RechtsVanScheidingsteken & " " & LinksVanScheidingsteken   
    MsgBox NaamOpRapport
End Sub