Automatisk indsættelse af brugernavn

prøv at se her

http://www.eksperten.dk/spm/345238

Dette er fundet på eksperten lavet af 'kedde65'

jeg har rettet så den skriver i celler


Sub brugerID()
Dim wshNetwork

Set wshNetwork = CreateObject("WScript.Network")

Range("A1") = wshNetwork.UserName
Range("A2") = wshNetwork.userdomain
Range("A3") = wshNetwork.ComputerName

'dette lille script finder både brugernavn,domæne samt computernavn.
End Sub

Denne makro indsætter Excels brugernavn i en celle (her A1)

Sub IndsætBrugernavn()
    [A1] = Application.UserName
End Sub

Der er desværre ikke en standard-funktion i Excel, der kan gøre det, som f.eks. i Word.