Office: Benutzer Anzeigen

Hi,
ich erstelle gerade eine Tabelle die von verschiedenen Personen gefüllt wird und die diese dann ausdrucken.
Da jeder Mitarbeiter eine eigene PC-anmeldung hat, würde ich gerne diesen Namen einblenden lassen so das man automatisch den Namen des Mitarbeiters hat.
Ich habe danach auch schon mal bei google geschaut und diesen Code gefunden

Code:

Function UserName() 
UserName = Application.UserName 
End Function

allerdings würde ich gerne das es Automatisch geschieht ohne Button.... geht das?
Vielen Dank schon mal im Voraus.

edit: Ach ja der Name soll in einer Zelle stehen.

 

Hallo

Den Code in diese Arbeitsmappe.

Code:

Private Sub Workbook_Open()
Dim i As String
i = Application.UserName
Sheets("tabelle1").Range("a1").Value = i
End Sub

Schreibt jedesmal beim öffnen der Mappe den Benutzernamen in Tabelle1 Zelle A1.

Gruß

 

mhhh geht leider nicht wenn ich das öffne -.-

wenn ich die ausführe geht es aber halt nicht wenn ich die datei öffne

 

Auf was steht bei dir die Makro Sicherheit? Muss auf niedrig stehen.

 

jap ab ich auf niedrig geht trotzdem net -.-

 

mhh vllt. hilft ja die Datei

 

Ja du hast den Code in Tabellenblatt1 reinkopiert der muss aber in "Diese Arbeitsmappe".

 

outch kenn mich net soo in VBA aus^^ danke

 

gibt es eigentlich ne möglichkeit das es trotz der Makros sicherheit "Hoch" funktioniert?

 

Ja gibt es ist aber nicht so easy schau mal hier http://excelabc.de/excel/et/excel.php?Seite=et00006 nach.

Gruß

 

also mit der Anleitung is das total easy^^ funktioniert einwandfrei thx