Sub NachGleichheitPrüfen()
Dim a As Long
Dim b As Long
Dim c As Long
Dim letzteZeileInS2 As Long
letzteZeileInS2 = Sheets(2).UsedRange.SpeacialCells(xlCellTypeLastCell).Row
Dim letzteZeileInS1 As Long
letzteZeileInS1 = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
For a = 2 To letzteZeileInS2
For b = 2 To letzteZeileS1
If Sheets(2).Cells(a, 1).Value = Sheets(1).Cells(b, 1).Value Then
Sheets(1).Cells(b, 2) = Sheets(2).Cells(a, 1)
End If
Next b
Next a
End Sub