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