Aktuellen Benutzer auslesen
Ausgangslage - Was tut dieser Code-Schnipsel?
Folgend finden Sie eine VBA Funktion, mit deren Hilfe Sie den aktuell am System angemeldeten
Benutzer ermitteln können. Zusästzlich finden Sie eine Funktion, welche es ermöglicht den aktuellen Benutzer
mit einer einfachen Excel-Formel '=BENUTZERNAME' überall in Excel verwenden zu können.
Dazu kopieren Sie den folgenden Quellcode bitte in ein eigenes Modul.
Ergebnisse statt Aufwand & Arbeit?
Wir liefern Ergebnisse - Schicken Sie uns kurz Ihre Datei und Ihre Wünsche; wir integrieren den notwendigen Code professionell, beheben ggf. vorhandene Fehler, machen optional ein Code-Review, liefern bei Bedarf Performance-Optimierungen & setzen gewünschte Erweiterungen effizient für Sie um (und das zum Festpreis nach kurzer Sichtung).
Express-Service beauftragen
Der Quelltext
Option Explicit
' Original-Quelltext unter: https://www.online-vba.de/aktuellen-benutzer-auslesen
' Express-Hilfe für VBA unter https://www.online-vba.de/vba-expresshilfe
' Es gelten die Nutzungsbedingungen von Online-VBA.de
Private Declare Function aGetUserNameA Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function OVBAde_GetUserName() As String
Const lLEN As Long = 255
Dim lRet As Long
Dim sUserName As String
sUserName = String$(lLEN - 1, 0)
lRet = aGetUserNameA(sUserName, lLEN)
If lRet <> 0 Then
OVBAde_GetUserName = Left$(sUserName, lLEN - 1)
Else
OVBAde_GetUserName = ""
End If
End Function
Public Function BENUTZERNAME() As String
BENUTZERNAME = OVBAde_GetUserName()
End Function
Das könnte Sie auch interessieren:
Wir modernisieren Excel-Lösungen zu einer Web-App – sicher, skalierbar und wartbar. Für Projekte in Hamburg: Excel-Makro-Programmierer für Hamburg – Formulare, Prüfregeln und Reporting.
Anmerkungen und Hinweise
Achtung: Der Abruf des Benutzernamens funktioniert nur mit einer 32-Bit Office Installation.
Dieser Codeschnipsel wurde geschrieben von Marc Wershoven im Jahr 2013.
Die Nutzung erfolgt auf eigene Gefahr.
Bitte denken Sie immer zuerst an eine ausreichende Datensicherung.
Wir können keinen kostenlosen Support anbieten.
Es gelten unsere Nutzungsbedingungen.
