>> Bereich BC50:BL50 in den Bereich AC50:AZ50 kopier[en]
Daran stört mich, dass die zwei Bereiche unterschiedlich groß sind.
Der Beschreibung nach, so:
Sub Test()
Dim i As Long
With Worksheets("Berechnung Rampe")
For i = 2 To 502
If .Cells(i, "AI") = .Cells(i, "B") _
And .Cells(i, "AN") < .Cells(i, "BJ") _
Then
.Range(.Cells(i, "AC"), .Cells(i, "AZ")) = .Range(.Cells(i, "BC"), .Cells(i, "BL"))
.Cells(i, "CA") = 1
End If
Next
End With
End Sub
|