Danke Euch fürs Erste für die Hilfe.
Mit folgenden Code arbeite ich gerade:
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
|