Hallo Rainer,
ich habe es mal so getestet:
If ActiveCell.Offset(0, 2) = Cells(ActiveCell.Row, 24) Then
ActiveCell.Offset(0, 8).Value = Range("Y" & WorksheetFunction.Match(ActiveCell.Offset(0, 2), Range("X:X"), 0))
End If
End Sub
Dein Vorschlag funktioniert nur, wenn alle Werte in einer Zeile stehen.
In den Spalten ActiveCell sind etwa 6000 Einträge, in den Spalten (X, Y) etwa 100 Einträge.
Gruß
fedjo