Zurück zur Homepage

Anmeldename

Als Formel (funzt nur unter XL97 ohne Sicherheitspatch) oder als Funktion.

Beispieldatei (username.zip 8 kB)

 Private Declare Function getusername& Lib "advapi32.dll" Alias "GetUserNameA" (ByVal _
  lpBuffer As String, nSize As Long)

Public Function UsernameLesen()
  Dim username$, Länge&
  'Username = Application.Username
  username = String(256, 0)
  Länge = 255
  Call getusername(username, Länge)
  UsernameLesen = Left(username, Länge - 1)
End Function

 'Formel
=AUFRUFEN("advapi32.dll";"GetUserNameA";"1FF";;254)