Dauerhafte Variable
13.01.2007 19:40:19
dreho
was muss ich tun, damit die Varialbe UserName während der ganzen Excel-Sitzung aktiv ist.
(Ich bin am Lernen von VBA)
Danke für Antwort und Gruss dreho
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Sub windows_user_Name()
Dim lpBuff As String * 25
Dim ret As Long, UserName As String
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
End Sub
Sub msgbox_UserName()
MsgBox "Angemeldeter User ist: " & UserName
End Sub
Anzeige