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