Windows-Anmeldung per Formel in Excel-Zelle

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

Sub ShowUserName()
  Dim UserName As String
  Const c_BufferLen As Long = 50
  Dim Buffer As String * c_BufferLen
  GetUserName Buffer, c_BufferLen
  UserName = Left(Buffer, InStr(Buffer, Chr(0)) - 1)
  MsgBox (UserName)
End Sub

Option Explicit
'Die Tabelle wird auf Änderung überwacht
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  Dim z As Range
  Const c_SpalteUserName = 9->Spalte in der der UserName hinterlegt werden soll
 ->Wurde der UserName schon einmal bestimmt ?
  If str_aktuellerUserName =  Then
    Call AktuellerUserName->UserName bestimmen
  End If
 ->Für jede geändert Zelle
  For Each z In Target
   ->Ist der Username bereits eingetragen ?
    If Cells(z.Row, c_SpalteUserName).Value <> str_aktuellerUserName Then
    ->Nein -> eintragen
      Cells(z.Row, c_SpalteUserName).Value = str_aktuellerUserName
    End If
  Next
End Sub

Option Explicit

'Modul zur Speicherung des UserNames
'(globale Variablen können nur in einem Modul gespeichert werden
' nicht in der Code-Seite eines Tabellenblattes)
Global str_aktuellerUserName As String
'******************************************************************
'Funktion zum Bestimmung des Login-UserNames
'speichert denUsrName in der globalen Variablen (siehe oben)
Declare Function GetUserName Lib advapi32.dll _
Alias GetUserNameA (ByVal lpBuffer As String, nSize As Long) As Long
Sub AktuellerUserName()
  Const c_BufferLen As Long = 50
  Dim Buffer As String * c_BufferLen
  GetUserName Buffer, c_BufferLen
  str_aktuellerUserName = Left(Buffer, InStr(Buffer, Chr(0)) - 1)
End Sub
'******************************************************************