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
|