Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
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
920to924
920to924
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Systemvariable - Benutzername auslesen

Forumthread: Systemvariable - Benutzername auslesen

Systemvariable - Benutzername auslesen
07.11.2007 16:42:00
Timonski
Servus
da auf jedem rechner jeder ein anderen Standart Drucker bzw. Druckeranschluss benutzt will ich anhand vom Einloggbenutzernamen dies unterscheiden...
also wenn benutzer A die Exceldatei benutzt dann ist der Acrobat auf Ne02
wenn benutzer B die datei benutzt dann hat der Acrobat den anschluss Ne03...
gibt es die Systemvariable Benutzername oder kann ich das problem mit den druckern auch anders lösen?

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Systemvariable - Benutzername auslesen
07.11.2007 16:46:22
Horst
Hi,
MsgBox Environ("Username")
mfg Horst

AW: Systemvariable - Benutzername auslesen
07.11.2007 22:42:00
Tino
Hallo,
oder den System-User
Funktioniert unter Win XP u. Win 2000, andere Systeme nicht getestet!

Option Explicit
Private Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" ( _
ByVal lpBuffer As String, nSize As Long) As Long
Function System_User() 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
System_User = Left(strUser, lngPuffer - 1)
End If
End Function


Gruss
Tino

Anzeige
;

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