Hallo zusammen,

folgender Code zur Ermittlung des Benutzernamens funktioniert seit der Umstellung in meiner Firma auf Office365 64 Bit-Variante nicht mehr.

Kann mir jemand helfen? Wie muss der Code verändert werden?

Vielen Dank und Grüße
Harald



Option Explicit
'Aktuellen_Benutzer_ermitteln
Dim BName As String
Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long
Function BenutzerName1() 'E......-Nr.
Dim Buffer As String * 100
Dim BuffLen As Long
Application.Volatile
BuffLen = 100
GetUserName Buffer, BuffLen
BenutzerName1 = Left(Buffer, BuffLen - 1)
End Function
Function BenutzerName() 'Vorname Name bzw. alte USERID
Application.Volatile
BenutzerName = Application.UserName
End Function