gebruikersnaam in cel invoegen

[davylenders123]

Ik zou in mijn bestand willen dat de naam van de persoon die het bestand heeft ingevuld in de cel AY1 komt te staan.
Ik heb een code(zie hieronder) maar deze geeft de inlog nummer weer die we gebruiken op op fusion(citrix) in te loggen.
Dit zou de naam moeten zijn. bv die in office is ingeven
Kan dit nog op een andere manier ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("AY1") = Environ("USERNAME")
End Sub

Heb het bestand toegevoegd.
Het tabblad reparatieaanvraag is het blad waar in de ay1 de naam zou moeten komen.
Als er in de cellen b2.b3.b4 of b5 iets is ingevuld.

Mag ook zijn bij het openen van het bestand dat de naam wordt ingevuld.
Want de cel ay1 zal toch elke keer worden gewist juist voor het sluiten.

Bekijk bijlage Doorgeven van reparatie versie3.xls

 

[gober]

Private Sub Workbook_Open()
Sheets("Reparatieaanvraag").Select
Range("AY1").Value = Application.UserName
End Sub

 

[davylenders123]

gober

Bedankt voor je snelle oplossing :thumb:

 

[HSV]

Haal 'select' eens weg en koppel dan de twee regels eens aan elkaar dmv een punt (.)

 

[davylenders123]

HSV

Heb de aanpassing gedaan en deze werkt ook.
Maar waarom de select weg laten ?

 

[Conseclusie]

...Omdat die handeling compleet overbodig is.
Je hoeft niet naar het betreffende sheet te gaan om het veld aan te passen.