vba - kein Finden wegen Textumbrüche

Sub ergebnis()
Dim ArZiel, ArQuelle, rngZiel As Range, n&, c&
With Sheets("Result_1")
Set rngQuell = .Range("a2", .Cells(.Rows.Count, 1).End(xlUp)).Offset(0, 2).Resize(, 4)
End With
With Sheets("Result_2")
Set rngZiel = .Range("a2", .Cells(.Rows.Count, 1).End(xlUp)).Offset(0, 2).Resize(, 4)
End With
ArQuelle = rngQuell.Value2
ArZiel = rngZiel.Value2
For n = LBound(ArQuelle) To UBound(ArQuelle)
For c = LBound(ArZiel) To UBound(ArZiel)
If ArZiel(c, 1) = ArQuelle(n, 1) And _
ArZiel(c, 2) = ArQuelle(n, 2) Then
For sp = 8 To 11 'Wertespalten
Sheets("Result_2").Cells(c + 1, sp + 5) = Sheets("Result_1").Cells(n + 1, sp - 2) _
' Result_2, Result_1
Next sp
End If
Next
Next
End Sub