-
Benutzer auslesen
Gibt de angemeldeten Benutzer zurück:
Sub NutzerAngemeldet()
MsgBox Application.UserName
End Sub -
1 Reply
-
Sub Benutzer()
Dim StringUser, StringText As String
StringUser = Environ(“USERPROFILE”)
StringText = Mid(StringUser, InStrRev(StringUser, “\”) + 1)
MsgBox StringText
End Sub
Log in to reply.