For q = 2 To 502
If .Cells(w, "AI") = .Cells(q, "BE") _
And .Cells(w, "AN") < .Cells(q, "BJ") _
Then
.Range(.Cells(w, "AQ"), .Cells(w, "AZ")) = .Range(.Cells(q, "BC"), .Cells(q, "BL"))
.Cells(q, "CA") = 1
End If
Next
markierte Zeile mal ändern in
.Range(.Cells(q, "BC"), .Cells(q, "BL")).Copy .Range(.Cells(w, "AQ"), .Cells(w, "AZ"))
|