Initialen uit Application.Username halen

spaarie · 14 dec 2017

Hoi helpers,

Wie kan mij helpen met een mooi stukje VBA om de initialen uit Application.Username te halen.
Ik gebruikte deze:

Code:

Sub initialen()
    With CreateObject("Word.Application")
        p = UCase(.UserInitials)
        .Quit
    End With
End Sub

Echter krijg ik regelmatig een fout hierop dat het object niet geladen kan worden.

Heb internet ook al afgestruind, maar kom eigenlijk alleen maar werkblad functies tegen welke ik, zonder succes, probeer om te bouwen.

Note: Application.Username kan speciale karakters bevatten bijvoorbeeld een " - " en/of een firma naam. Deze mogen mee in de initialen...

Cobbe · 14 dec 2017

Je kan deze UDF misschien gebruiken:

Code:

Public Function UserInitials() As String
    Dim vaNames As Variant
    Dim sInit As String
    Dim lMax As Long
    Dim i As Long
    vaNames = Split(UCase(Application.UserName), " ")
    lMax = Application.WorksheetFunction.Min(2, UBound(vaNames))
    For i = 0 To lMax
        sInit = sInit & Left$(vaNames(i), 1)
    Next i
    UserInitials = sInit
End Function

edmoor · 14 dec 2017

Of deze:

Code:

Public Function initialen() As String
    p = Split(Application.UserName)
    For i = 0 To UBound(p)
        u = u & Left(p(i), 1) & "."
    Next i
    initialen = u
End Function

spaarie · 14 dec 2017

Cobbe en edmoor bedankt.
Zat zelf ook nog ff te spelen, maar tot mijn verbaasde werkte het. Ik dacht dat het fout zou gaan, maar toch niet.
Ik kwam tot dit:

Code:

n = Application.UserName
    For x = 0 To UBound(Split(n, " "))
        i = i & UCase(Left(Split(n, " ")(x), 1))
    Next

Beetje zoals edmoor...

Bedankt voor de reacties in ieder geval.

snb · 14 dec 2017

Bekijk de code van Ed svp nog eens beter.

Initialen uit Application.Username halen

spaarie

Terugkerende gebruiker

Cobbe

Giga Honourable Senior Member †

edmoor

Inventaris

spaarie

Terugkerende gebruiker

snb

Verenigingslid

Nieuwste berichten

Wij waarderen jouw privacy