Username trennen (VBA)
PeterO
Ich benutze folgende Funktion um den Usernamen darzustellen:
Function benutzer2()
benutzer2 = WorksheetFunction.Proper(Environ("Username"))
End Function
Das Ergebnis besteht immer aus dem abgekürzten Vornamen, einem Punkt und dem Nachnamen:
M.Mustermann
Ich möchte nun hinter dem Punkt noch ein Leerzeichen einfügen (der Optik wegen...). Per Formel würde ich es wie folgt lösen:
GROSS2((TEIL(E19;1;2))&" "&TEIL(E19;3;99))
Per VBA finde ich mit Left() einen Ansatz für die ersten 2 Zeichen, aber dann hört es bei mir auf.
Wäre für Hilfe dankbar.
Gruß Peter
Anzeige