SjonR
Verenigingslid
- Lid geworden
- 10 nov 2016
- Berichten
- 3.279
Helpers, een hele goedemorgen.
Ik wil van gebruikersnamen de voornaam gebruiken bij het begroeten van medewerker.
Deze namen zien er dan zo uit: ( AB staat voor een verstiging, heeft altijd zelfde formaat.
Bakker, Karel (AB)
Hier lukt het me prima om de voornaam eruit te krijgen, omdat ik met Instr de kommapositie gebruik.
Het wordt echter lastiger als ik een medewerker heb met een naam met tussenvoegsels, bijvoorbeeld :
Linde, Peter van der (AB)
Hier zou ik de tweede spatiepositie moeten weten, maar de lukt met niet met VBA. Met een excelformule lukt dit wel, maar VBA pakt deze methode niet ( Typen komen niet met elkaar overeen).
Wie heeft raad?
Ik wil van gebruikersnamen de voornaam gebruiken bij het begroeten van medewerker.
Deze namen zien er dan zo uit: ( AB staat voor een verstiging, heeft altijd zelfde formaat.
Bakker, Karel (AB)
Hier lukt het me prima om de voornaam eruit te krijgen, omdat ik met Instr de kommapositie gebruik.
Het wordt echter lastiger als ik een medewerker heb met een naam met tussenvoegsels, bijvoorbeeld :
Linde, Peter van der (AB)
Hier zou ik de tweede spatiepositie moeten weten, maar de lukt met niet met VBA. Met een excelformule lukt dit wel, maar VBA pakt deze methode niet ( Typen komen niet met elkaar overeen).
Wie heeft raad?
Code:
Sub voornaam()
Dim Rng As Range
Set Rng = Range("A1")
Dim Vnaam, VSnaam As String
Dim Komma, Spatie As Integer
Komma = InStr(Rng, ",")
[COLOR="#00FF00"]'Spatie = InStr(Rng, " ", InStr(Rng, " ") + 1)[/COLOR]
Vnaam = Mid(Rng, Komma + 2, Len(Rng) - Komma - 6)
MsgBox Vnaam
End Sub