Fehler in Funktion
Lorenz
Mit dieser Funktion will ich die Einträge aus "wksEinstellung.Range(Cells(1, 2), Cells(1, 7))" überprüfen ob übereinstimmt. Wird die Funktion in der VBE-Umgebung angesprochen, so werden die Inhalte aus der aktiven Tabelle gelesen. (wksEinstellung ist der Codename der Tabelle)
Public Function AlphaBerechtigt() As Boolean
AlphaBerechtigt = Not wksEinstellung.Range(Cells(1, 2), Cells(1, 7)).Find(What:=Environ(" _
Username"), LookIn:=xlValues, LookAt:=xlPart) Is Nothing
End Function
Gruss
Lorenz
Anzeige