Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1072to1076
1072to1076
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Systembenutzter abfragen VBA

Forumthread: Systembenutzter abfragen VBA

Systembenutzter abfragen VBA
08.05.2009 08:25:25
andreas
Hallo zusammen,
kurze Frage, wie kann man mit VBA dem Namen des Systembenutzers abfragen?
Habe leider keine Ahnung da ich das noch nie benötigt habe.
bin für jeden Tipp dankbar
Gruß Andreas
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
environ("UserName") oT
08.05.2009 08:28:39
Matthias
hier mal drei Möglichkeiten...
08.05.2009 08:40:18
Tino
Hallo,
..., in der Regel reicht die Variante 2 aus.
Variante 1 würde ich persönlich nicht benutzen, kann zu leicht geändert werden.

'1. Möglichkeit ****************************************************
Sub Beispiel1()
'der in Excel eingetragene Username
MsgBox Application.UserName
End Sub
'2. Möglichkeit ****************************************************
Sub Beispiel2()
'Umgebungsvariable vom System
MsgBox Environ$("Username")
End Sub
'3. Möglichkeit ****************************************************
Private Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" ( _
ByVal lpBuffer As String, nSize As Long) As Long
Function SystemUser() As String
'Deklaration: Globale Prozedur-Variablen
Dim lngErgebnis As Long
Dim lngPuffer As Long
Dim strPuffer As String
Dim strUser As String
Dim strUsername As String
lngPuffer = 255
strUser = Space$(lngPuffer)
lngErgebnis = GetUserName(strUser, lngPuffer)
If lngErgebnis  0 Then
SystemUser = Left(strUser, lngPuffer - 1)
End If
End Function
Sub Beispiel3()
'Mit API Funktion
MsgBox SystemUser
End Sub


Gruß Tino

Anzeige
AW: Danke an alle
08.05.2009 08:47:57
andreas
Hallo Tino
vielen Dank für die schnelle Hilfe.
Wünsche noch einen schönen Tag
Andreas
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige