ich habe hier ein Excel-Formular. Nun möchte ich, dazu den Windows- bzw. Outlook-Benutzer (Vorname Name - ggf. >bei Outlook Bei meiner allgemeinen Web-Recherche zwar hiermit fündig geworden:
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
Es funkt auch - allerdings wollte ich kein Pop-up, sondern den Eintrag in die Zelle "B2" (bei Emailadresse wärs ggf. "B3").
Ich kenne mich in der VBA-Programmierung leider überhaupt nicht aus. Könnt ihr mir hierbei helfen?
Danke & Gruß
MichaelP