Username aus Tabelle auslesen

Dim lstrLogin As String

Dim lloRow As Long, lstrPerson As String

Dim Verzeichnis2 As String

Dim Quell_wb As Workbook



        Verzeichnis2 = "I:\Lw\218407\31-5620-E-WacheDPLEssMeld\01 Dienstplan\011 Jahresdienstplan\" 'Ablageort der Quelldatei anpassen

        

        Set Quell_wb = Application.Workbooks.Open(Verzeichnis2 & ("Dienstplan Weapons.xlsm"), Password:="sunhawk")



  lstrLogin = Environ("username")



    With Sheets("Pers")       ' Workbooks(Quell_wb).Sheets("Pers")

        For lloRow = 3 To .Cells(.Rows.Count, 1).End(xlUp).Row

            If lstrLogin = .Range("AL").Value Then

                lstrPerson = .Range("A").Value 'hier entsteht der Fehler

                Exit For

            End If

        Next

    End With

    

    Call Okay