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
Seit einiger Zeit funktioniert das aber nicht mehr, wenn ich in eine Zelle =user() eingebe, was vorher einwandfrei funktioniert hat.Kann mir da vielleicht jemand weiterhelfen bitte?
Für Euere Bemühungen schon mal einen lieben Dank!
Gruß
Klaus