Danke Euch fürs Erste für die Hilfe.
Mit folgenden Code arbeite ich gerade:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | Sub Schritt10()
Dim w As Long
With Worksheets( "Sheet 1" )
For w = 2 To 502
If .Cells(w, "AI" ) = .Cells(w, "BE" ) _
And .Cells(w, "AN" ) < .Cells(w, "BJ" ) _
Then
.Range(.Cells(w, "AQ" ), .Cells(w, "AZ" )) = .Range(.Cells(w, "BC" ), .Cells(w, "BL" ))
.Cells(w, "CA" ) = 1
End If
Next
End With
End Sub
|
Darin sind jetzt auch die richtigen Zellen.
Leider nochmals eine Kurze Erklärung da es leider noch nicht funktioniert wie gewünscht.
If AI2 = BE2 und AN2 < BJ2 dann AQ2:AZ2 = BC2:BL2 und CA2 = 1
If AI2 = BE3 und AN2 <BJ3 dann AQ2:AZ2 = BC3:BL3 und CA3 =1
If AI2 =BE4 und AN2 <BJ4 dann AQ2:AZ2 = BC4:BL4 und CA4 =1
das ganze geht weiter bis
If AI2 =BE502 und AN2<BJ502 dann AQ2:AZ2=BC502:BL502 und CA502=1
Ist dies fertig dann der nächste Schritt:
IF AI3 = BE2 und AN3<BJ2 dann AQ3:AZ3=BC2:BL2 und CA2=1
das ganze geht weiter bis
IF AI3=BE502 und AN3<BJ502 dann AQ3:AZ3=BC502:BL502 und CA502=1
Das ganze soll berechnet werden bis AI502,letzte Rechnung somit:
IF AI502=B502 und AN502<BJ502 dann AQ502:AZ502=BC502:BL502 und CA502=1
Leider fehlt mir echt noch die Erfahrung hier in der Fachsprache mitzusprechen, hoffe so ist es ein wenig verständlicher.
Danke
|