Range + Cells
16.04.2009 11:53:16
Oppermann
ich möchte einen Bereich von einem Tabellenblatt auf ein identisches kopieren:
For i = 0 To 100
If Worksheets("übersicht").Cells(i * 2 + 5, 5) = fu1 Then
Worksheets("übersicht").Range(Cells(i, 2), Cells(i + 1, 68)).Copy Destination:=Worksheets("übersicht_tmp").Range(Cells(i, 2), Cells(i + 1, 68))
End If
Next i
Es geht um die Kombination des Range/Cells Befehls. Hier kommt ein Laufzeitfehler 1004.
Range mit "A1:B2" scheidet aus, da ich variable werte habe.
Was mache ich falsch?
Gruß, Frank