Excel VBA Username ermitteln
Beck, Alwin
Hallo,
dieser Code funktioniert bei mir innerhalb von Outlook.
Bei Excel 2003 wird hier "Namespace" nicht akzeptiert.
Wie kann ich dieses anpassen ?
'Anfang: Excel Benutzer Name + Vorname ermitteln
Dim myuser As Object
Dim myNameSpace As Namespace
Set myNameSpace = Nothing
Set myuser = Application.GetNamespace("MAPI").CurrentUser
'Ende: Excel Benutzer Name + Vorname ermitteln
Danke
Gruß
Albe
stefan onken
hallo Albe,
probiers mal mit
Sub WerBinIch()
MsgBox Environ("username")
End Sub
das gibt den Namen zurück, der unter Extras/Optionen eingetragen ist.
Oder willst du obigen Code in Excel laufen lassen?
Dann
Dim myuser As Object
Dim myNameSpace 'As Namespace
Set myNameSpace = Nothing
Set olApp = CreateObject("Outlook.Application")
Set myuser = olApp.GetNamespace("MAPI").CurrentUser
MsgBox myuser
'Ende: Excel Benutzer Name + Vorname ermitteln
Set olApp = Nothing
Gruß
stefan
Beck, Alwin
news:e7955e74-bf80-4d96...@s20g2000yqh.googlegroups.com...
Gruß
stefan
Hallo Stefan,
ich möchte den Namen gem. Useranmeldung auslesen - nicht den Namen
aus "Extras Optionen" - da dieses nicht belegt ist und somit zu
unsicher.
Eigentlich benötige ich den Namen + Vornamen.
Danke
Gruß
Albe
Carlos Naplos
Schau mal, ob hier (http://www.xlam.ch/soscq/benutzer.htm#Aktueller%20Benutzer%20einer%20Exceldatei) etwas für Dich dabei ist!
(Suche mit Grgl: excel benutzername, 1. Eintrag)
Gruß
CN
Dr. Eckehard Pfeifer
MsgBox Environ("Username")
sollte helfen, ob da allerdings klar ist, was Vor- bzw. Nachname ist, hängt
von den Umständen ab.
--
MfG EP
Entwicklung - Beratung - Training (www.dr-e-pfeifer.net)
XL-Maxibuch (ISBN: 3-86645-231-4)
Microsoft Office 2007-Programmierung (ISBN 3-86645-415-5)
stefan onken
>
> ich möchte den Namen gem. Useranmeldung auslesen - nicht den Namen
> aus "Extras Optionen" - da dieses nicht belegt ist und somit zu
> unsicher.
> Eigentlich benötige ich den Namen + Vornamen.
>
Extras/Optionen ist Application.Username
Environ("username") liefert wie das API advapi32.dll (erster Code auf
der SOSCQ-Seite) nicht den Vornamen, wenn dieser nicht in der Windows-
Anmeldung enthalten ist (so wie hier bei uns in der Firma).
Über den Zugriff über Outlook klappt es bei mir jedoch.
Sub WerBinIchInOutlook()
Dim myuser As Object
Dim myNameSpace 'As Namespace
Set myNameSpace = Nothing
Set olApp = CreateObject("Outlook.Application")
Set myuser = olApp.GetNamespace("MAPI").CurrentUser
MsgBox myuser
'Ende: Excel Benutzer Name + Vorname ermitteln
Set olApp = Nothing
End Sub
Gruß
stefan
Carlos Naplos
>> Hallo Stefan,
>>
>> ich möchte den Namen gem. Useranmeldung auslesen - nicht den Namen
>> aus "Extras Optionen" - da dieses nicht belegt ist und somit zu
>> unsicher.
>> Eigentlich benötige ich den Namen + Vornamen.
>>
> ups, Environ("username") liefert den Windows-Anmeldenamen.
> Extras/Optionen ist Application.Username
>
Environ("username") liefert den Inhalt der Umgebungsvariable "USERNAME", den Du Dir im cmd-Fenster mit "set username" anzeigen lassen kannst. (s.a. help set)
Gruß
CN
Carlos Naplos
Beck, Alwin
Gruß
stefan
Hallo zusammen,
danke für die Hilfe. Habe nun meinen Code verwendet wie oben
von Outlook. Problem lag wie von Stefan auskommentiert in Zeile3
Dim myNameSpace 'As Namespace "As Namespace wurde nicht akzeptiert,
was bei Outlook der Fall war. Wende ich dieses nun an funktioniert die
Ausgabe mit Name + Vorname.
Danke
Gruß
Albe
stefan onken
> Hallo zusammen,
> danke für die Hilfe. Habe nun meinen Code verwendet wie oben
> von Outlook. Problem lag wie von Stefan auskommentiert in Zeile3
> Dim myNameSpace 'As Namespace "As Namespace wurde nicht akzeptiert,
> was bei Outlook der Fall war. Wende ich dieses nun an funktioniert die
> Ausgabe mit Name + Vorname.
hallo Albe,
kurz die Erklärung dafür:
Excel kennt Namespace nicht, da es ja zu Outlook gehört.
Wenn man jedoch im VBA-Editor unter Extras/Verweise einen Verweis auf
die MS Outlook Library setzt, weiss Excel, was Namespace ist, dann
brauchst du nicht auszukommentieren. Solche Verweise können jedoch
Probleme machen (zB bei Verwendung der Datei in verschiedenen Office-
Versionen).
http://www.online-excel.de/excel/singsel_vba.php?f=85
Gruß
stefan