Laufzeitfeher 1004 beim Programmstart
18.07.2021 18:55:50
Peter
kann mir jemand sagen, warum mir diese Sub - Abfrage im Workbook_Open Prozess - immer mal wieder (eben nicht immer, und nie beim Start) den Laufzeitfehler 1004 bringt?
Public Sub LoggedUser()
Dim rngzelle As Range
Dim Zeit As Date
'Prüfen, welche USBNK dem angemeldeten Benutzer zugeordnet wurde und ob diese registriert ist im Programm, wird gespeichert in der Variable LoggedUserUSBNK
LoggedUser= Environ("username")
'Prüfen, ob der angemeldete Benutzer berechtigt ist, das Programm zu öffnen
Set rngzelle = Sheets("Setup").Range("B11:B18,F11:F18,J11:J18,N11:N18,R11:R18,V11:V18").Find( _
what:=LoggedUser, LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByRows)
If rngZelle Is Nothing Then
MsgBox prompt:="Sie haben keine Berechtigung, dieses Programm zu öffnen."
ThisWorkbook.Close savechanges:=False
Application.Quit
Exit Sub
Else
End If
End Sub