Mit folgender Funktion können Sie feststellen, mit welchem Usernamen man gerade am Netzwerk angemeldet ist:

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

Function NTDomainUserName() As String
 Dim strBuffer As String * 255
 Dim lngBufferLength As Long
 Dim lngRet As Long
 Dim strTemp As String
 lngBufferLength = 255
 strBuffer = String(255, 0)
 lngRet = GetUserName(strBuffer, lngBufferLength)
 strTemp = UCase(Left(strBuffer, lngBufferLength - 1))
 NTDomainUserName = strTemp
 End Function 

<">Kopieren Sie den Quellcode in ein VBA-Modul.

Anschließend können Sie über das Eintragen der neuen Funktion in eine Zelle den Usernamen ermitteln. In die gewünschte Zelle schreiben Sie

= NTDomainUserName()