VBA - Excel Benutzernamen ermitteln

so kann man seinen eigenen Benutzernamen in Excel ermitteln:

 

 

Microsoft Excel Objekt Tabelle1

Option Explicit 
 
Sub Mein_User() 
    Range("a1") = Environ("Username") 
End Sub