Folgend finden Sie eine VBA Funktion, mit deren Hilfe Sie den aktuell am System
angemeldeten Benutzer ermitteln können. Zusätzlich 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 eigene Modul.
Option Explicit
' ************************************************************************************************
' Autor/en: http://www.online-vba.de - Marc Wershoven
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von www.online-vba.de!
' Original-Quelltext: www.online-vba.de/vba_curuser.php
' ************************************************************************************************
Private Declare Function aGetUserNameA Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Function MWGetUserName() 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
MWGetUserName = Left$(sUserName, lLEN - 1)
Else
MWGetUserName = ""
End If
End Function
Public Function BENUTZERNAME() As String
BENUTZERNAME = MWGetUserName()
End Function
Autor: Marc Wershoven (2013)
VBA Programmierer gesucht?
http://www.WershovenOnline.de
Sie haben beispielsweise eine Frage zu einer Ihrer eigenen Makroprogrammierungen in VBA? Oder Sie suchen Unterstützung und Informationen über eine bestimmte Microsoft® Excel® Formel? Bei nahezu allen Fragen und Problemen rund um Microsoft® Office und VBA Makros steht Ihnen unser individueller Quick E-Mail Support zur Verfügung. Einfach, schnell und unkompliziert Ihre Frage in einer E-Mail formulieren, mit oder ohne Screenshots oder einer Beispieldatei absenden und kurze Zeit später haben Sie eine vollständige Lösung inkl. ausführlicher Erklärung vom Profi in Ihrem Postfach!
Zusätzlich besteht die Option, dass wir uns mittels Fernwartung (selbstverständlich nach Ihrem Einvertändnis) direkt "live" mit Ihnen zusammen an Ihrem Bildschirm gemeinsam Fragen und Problemstellungen anschauen und lösen können!
Weitere Informationen zu diesem kostenpflichtigen Angebot finden Sie auf der Anbieterseite von WershovenOnline® auf www.wershovenonline.de.
Zum Anbieter des Quick-E-Mail-Support...