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