Gebruikersgegevens opnemen in cel

[TimAkkerman]

Helup

Weet iemand of het mogelijk is om (middels een formule) de naam en wellicht andere gegevens van de huidige gebruiker van een excelsheet op te nemen in een cel.

 

[Jan van Asseldonk]

Met de volgende macro's kun je de diverse gegevens opvragen:

Sub OpvragenEnvVar()
'
' OpvragenEnvVar Macro
' De macro is opgesteld op 16-04-02 door Jan van Asseldonk.
' De inhoud van de environmentvariabelen opvragen en deze in blad 3 plaatsen.

'
Worksheets("Blad3").Activate
For i = 1 To 100
Range("b" & i).Formula = "Environmentvariabele " & i & " = "
Range("c" & i) = Environ(i)
Next
End Sub

Sub properties()
'Deze macro plaatst de eigenschappen van de sheet in blad 2.

On Error Resume Next
rw = 1
Worksheets("Blad2").Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(rw, 1).Value = p.Name
Cells(rw, 2).Value = p.Value
Cells(rw, 3).Formula = p.Formula

rw = rw + 1
Next

End Sub

 

[TimAkkerman]

Bedankt voor de oplossing

Bedankt voor de macro deze werk inderdaad aardig, maar si een behoorlijke workaround. Erg goed gevonden ik kan hier wel wat mee, tenzij iemand een eenvoudigere methode weet.

Thanx