Hey :)

Ich brauche bei meinem Code Kommentare, denn ich verstehe die einzelnen Zeilen nicht.
Kann mit bitte jemand helfen, indem er mir simple Erklärungen pro Zeile gibt?!

For i = 10 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row     

        sWert = ws.Cells(i, lSpalte).Value                           
        If Trim(sWert) <> "" Then                             

            On Error Resume Next                              

            Set rngBereich = wsZwei.Cells.Find(What:=sWert, LookIn:=xlValues, LookAt:=xlPart)     
            On Error GoTo 0
   
            If Not rngBereich Is Nothing Then                     

                ws.Cells(i, lSpalte + 5).Value = "Ja"    

                                                                   
            Else                                                  

                ws.Cells(i, lSpalte + 5).Value = "Nein"                

            End If
        End If
    Next i

Ich wäre sehr dankbar bei Hilfe.

MFG