Hallo,
If Worksheets("Referenz-PISA").Cells(Referenz, 1) = Worksheets("WPE").Cells(WPE, 1) Then
Du vergleichst zwei Ranges. Du willst aber die Inhalte vergleichen...
If Worksheets("Referenz-PISA").Cells(Referenz, 1).Text = Worksheets("WPE").Cells(WPE, 1).Text Then
Sollte Dein Hauptroblem sein.
Gruß Jan Huss