folgendes Script habe ich gefunden, um den UserNamen auszulesen und anzuzeigen.
Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long
Sub ShowUserName()
Dim Buffer As String * 100
Dim BuffLen As Long
BuffLen = 100
GetUserName Buffer, BuffLen
MsgBox Left(Buffer, BuffLen - 1)
End Sub
Funktioniert auch wunderbar. Was mir fehlt ist, dass das Makro bei Dateistart automatisch läuft und der UserName z.B in Zelle A1 geschrieben wird und nicht in einer Message Box.
Danke für Hilfe!