Obwohl der strUsername "Lorenz" liefert, spuckt die Udf "wahr" aus
Public Function Boss() As Boolean
Dim strUserName As String, varSchreiben As Variant, varName As Variant
strUserName = UCase(Environ("UserName"))
varSchreiben = Array("Norbert", "Walter")
For Each varName In varSchreiben
If strUserName = UCase(varName) Then
Boss = True
Exit Function
End If
Next varName
End Function
Was ist an der UDF falsch?Gruss Lorenz