-
Benutzer auslesen
Gibt de angemeldeten Benutzer zurück:
Sub NutzerAngemeldet()
MsgBox Application.UserName
End Sub-
This discussion was modified 1 month, 1 week aktiv. by
tom.
-
This discussion was modified 1 month, 1 week aktiv. by
-
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.