Range(Cells(466, 1), Cells(466, 35)).Copy ARGH!

[mr.red]

ich werd narrisch!
Range(Cells(466, 1), Cells(466, 35)).Copy
Range(Cells(464, 1), Cells(464, 35)).PasteSpecial


auf meiner testtabelle funkts, auf der real-life tabelle markierts net einmal den bereich.
wei kann man das noch vernünftig lösen?

ich hab 2 schleifen die alle werte der liste x mit allen werten der liste y vergleichen, also hab ich nur zwei zähler, die mir die aktuelle zeile geben. hilfe!!

[mr.red]

For u = 2 To 4

For i = 466 To 4125

If Cells(u, 8) = Cells(i, 4) Then Cells(u, 27) = Range(Cells(i, 1), Cells(i, 35))

If Cells(u, 8) = Cells(i, 4) Then c = c + 1
if Cells(i, 4)="" then c=1
If c = 2 Then MsgBox (Cells(u, 3))

Next i
Next u

End Sub

[mr.red]

Sub ada(j As Long, v As Long)
Worksheets("Tabelle1").Cells(j, 1).Activate
ActiveCell.EntireRow.Select
ActiveCell.EntireRow.Copy

Worksheets("Tabelle1").Cells(v, 27).Activate
<hier ein paste dings>
End Sub



funkt ah net
beim paste: immer object error