Excel VBA Username ermitteln

11/03/2009 - 14:25 von Beck, Alwin | Report spam
Excel 2003

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
 

Lesen sie die antworten

#1 stefan onken
11/03/2009 - 16:03 | Warnen spam
On 11 Mrz., 14:25, "Beck, Alwin" wrote:
Excel 2003

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



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

Ähnliche fragen