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()