Dim i As Long, x As Long
For i = 5 To Sheets("ML").Range("A:A").Cells.SpecialCells(xlCellTypeLastCell).Row
If Sheets("ML").Cells(i, 1).Value = "" Then Exit For
For x = 11 To Sheets("Consolidation ZSFG").Range("A:A").Cells.SpecialCells(xlCellTypeLastCell).Row
If Sheets("Consolidation ZSFG").Cells(x, 1).Value = "" Then Exit For
If Worksheets("ML").Cells(i, 1).Value = Worksheets("Consolidation ZSFG").Cells(x, 1).Value Then
Worksheets("Consolidation ZSFG").Cells(x, 6) = "x"
End If
Next x
Next i