Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
920to924
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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?

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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige