1 2 3 4 5 6 7 8 | 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
1 | .Range(.Cells(q, "BC" ), .Cells(q, "BL" )).Copy .Range(.Cells(w, "AQ" ), .Cells(w, "AZ" ))
|
|