von Stephan » Do, 26.04.2007 22:35
Hat jemand eine Idee, wie ich das im Calc realisieren kann?
Für den Fall das es tatsächlich nur unter Windows funktionieren muß kannst Du es aus der Registrierung auslesen.
Entweder, wenn es für ein beliebiges Windows-System gehen soll (weil Du beispielsweise die Datei weitergeben willst) mittels benutzerdefinierter Funktion:
Code: Alles auswählen
Function LogonUser()
'nur wenn nicht aus Dokument aufgerufen wird:
'BasicLibraries.LoadLibrary("ImportWizard")
GlobalScope.BasicLibraries.LoadLibrary("ImportWizard")
schluessel = "Software\Microsoft\Windows\CurrentVersion\Explorer"
eigenschaft = "Logon User Name"
LogonUser = QueryValue(HKEY_CURRENT_USER, schluessel, eigenschaft)
End Function
in der Calc-Tabelle dann aufrufen mit:
=LOGONUSER()
Oder, wenn es nur auf einer bestimmten Windows-Installation funktionieren muß, auch mit dem Execompat-AddIn, siehe:
http://www.hajoschepker.biz/www/downloa ... -1.0.0.zip
(sollte entgegen der Angabe auf der Webseite auch unter 1.1.x und 2,x funktionieren)
Gruß
Stephan
[quote]Hat jemand eine Idee, wie ich das im Calc realisieren kann?[/quote]
Für den Fall das es tatsächlich nur unter Windows funktionieren muß kannst Du es aus der Registrierung auslesen.
Entweder, wenn es für ein beliebiges Windows-System gehen soll (weil Du beispielsweise die Datei weitergeben willst) mittels benutzerdefinierter Funktion:
[code]Function LogonUser()
'nur wenn nicht aus Dokument aufgerufen wird:
'BasicLibraries.LoadLibrary("ImportWizard")
GlobalScope.BasicLibraries.LoadLibrary("ImportWizard")
schluessel = "Software\Microsoft\Windows\CurrentVersion\Explorer"
eigenschaft = "Logon User Name"
LogonUser = QueryValue(HKEY_CURRENT_USER, schluessel, eigenschaft)
End Function[/code]
in der Calc-Tabelle dann aufrufen mit:
=LOGONUSER()
Oder, wenn es nur auf einer bestimmten Windows-Installation funktionieren muß, auch mit dem Execompat-AddIn, siehe:
http://www.hajoschepker.biz/www/download/addins/excompat-1.0.0.zip
(sollte entgegen der Angabe auf der Webseite auch unter 1.1.x und 2,x funktionieren)
Gruß
Stephan