Sheets("Liste TR").Activate
der2 = Range("A" & Rows.Count).End(xlUp).Row
Sheets("TR").Activate
der = Range("A" & Rows.Count).End(xlUp).Row
For z = 2 To der
If (WorksheetFunction.CountIf(Sheets("Liste tr").Range("A2:A" & der2), Cells(z, 1)) > 0) Then Cells(z, 5).Value = "X"
Next z