Frage zu VB Formel
27.05.2013 16:48:01
kstorz
Schon vor langer Zeit habe ich mal die folgende VBA Programmierung bekommen
Function Sustem_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
Sustem_User = Left(strUser, lngPuffer - 1)
End If
End Function
Kann mir da vielleicht jemand weiterhelfen bitte?
Für Euere Bemühungen schon mal einen lieben Dank!
Gruß
Klaus
Anzeige