siehe Datei.
https://www.herber.de/bbs/user/24694.xls
Wäre super wenn ihr mir helfen könntet.
Danke schonmal
Gruß Sebastian
Sub kopieren()
Dim i As Integer
ende = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To ende
If Sheets(1).Cells(i, 1).Text = Sheets(2).Cells(i, 1).Text Then
Sheets(1).Range("b" & i).Value = "X"
Else
End If
Next i
End Sub