Kann mir vielleicht den Code (Berechtigt) in eine Funktion umschreiben?
"rngUser soll Wahr, Falsch" liefern
Option Explicit
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Sub Berechtigt()
Dim B As String * 100, L As Long, rngUser As Range, sUser As String
L = 100
GetUserName B, L
sUser = Left(B, L - 1)
Set rngUser = wksEinstellung.Rows("1:30").Find(What:=sUser, LookIn:=xlValues, LookAt:=xlPart)
End Sub
Danke für die Mühe(n)Lorenz