Office: Windows User Name in Excel

Hi, ich möchte gerne die Fußzeile einer Excelvorlage abhängig vom angemeldeten Windowsuser automatisch ausfüllen lassen.

Nun habe ich folgendes im www dazu gefunden und auch teils erfolgreich eingepflegt:


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

Public Function atCNames() As String
' Ermittelt den Windows USERNAME
Dim NBuffer As String
Dim Buffsize As Long
Dim Wok As Long
Dim Temp As String

Buffsize = 256
NBuffer = Space$(Buffsize)
Wok = api_GetUserName(NBuffer, Buffsize)
Temp = Trim$(NBuffer)
atCNames = Left(Temp, Len(Temp) - 1)
End Function


Den Username Rufe ich dann über eine Zelle mit dem Befehl „=atCNames()“ in A62ab und verwende diesen Wert dann anschließend über Sverweis.

Problem:
Der Wert in A62 aktualisiert sich ausschließlich wenn man die Zelle aktiviert und per Enter verlässt.

Jemand ne Idee ?!?

:)

 

Hallo cuthbert,

den Windows-Anmeldenamen hättest du einfacher über Environ("UserName") haben können. In welcher Situation aktualisiert sich die Formel denn nicht? Wenn ich eine Formel (=JETZT()) in eine Zelle eingebe, die Datei speichere und wieder öffne, aktualisiert sich die Formel automatisch. Wenn bei dir ein anderer User die Datei öffnet, sollte das genauso geschehen, es sei denn, der betreffende User hat in den Exceloptionen die Berechnung auf manuell gestellt. Für diesen Fall könntest du ein Auto-Open-Makro einbauen:

Code:

 

1. Was ist Environ(„Username“)?
2. Das von mir gepostete Script funktioiert auch nicht wenn ich das Startskript Calculate einfüge.

Ich benötige den Windows Usernamen als Wert in einer Zelle um eine SV Abfrage zu ermöglichen.
Gibt’s vielleicht noch nan einfacheren Weg als den von mir eingeschlagenen?

 

es aktualisiert sich nicht wenn die datei ein anderer user öffnet!
und das ist ja sinn und zweck der übung!

 

Hallo cuthbert,

1. Environ("UserName") ist eine im Vergleich zu der von dir verwendeten API-Funktion einfachere Möglichkeit, den Windwos-Anmeldenamen des aktiven Benutzers zu ermitteln.

2. Offensichtlich ist es so, dass die integrierten Funktionen bei "Calculate" ausgeführt werden, die benutzerdefinierten jedoch nicht. Dann hilft nur noch "brachiale Gewalt":

Code:

 

es funktioniert - vielen dank!!