|
Hallo,
leider habe ich noch nicht genügend Erfahrung um folgende Aufgabe richtig lösen zu können:
Schritt 1:
Zelle AI2 soll die Zelle B2 auf gleichen Wert prüfen und zusätzlich soll die Zelle AN2 < BJ2 sein.
Trifft dich nicht zu soll automatisch geschaut werden ob AI2 = B3 und AN2<BJ2, dies geht so weiter bis B502 und BJ502
Schritt 2:
Falls Ja, zb. Übereinstimmung in der Zeile B50, BJ50 dann soll der Bereich BC50:BL50 in den Bereich AC50:AZ50 kopiert werden und in der Spalte CA50 soll in diesen Fall eine 1 erscheinen.
Der gleiche Prozess soll dann auch für den Bereich AI3 bis AI502 noch erfolgen. Immer vergleichen mit den Werten B2:B502 und BJ2:BJ502.
Ich habe versucht einen If Code zu erstellen, leider funktioniert dieser nicht.
Kann man so ein Vorhaben überhaupt mit 1 Code durchführen und wenn Ja wie könnte dieser lauten.
Danke für die Hilfe.
Sub Schritt10()
Dim aba As Long
Dim abb As Long
For aba = 2 To 501
For abb = 2 To 501
If Worksheets("Berechnung Rampe").Cells(aba, "AI") = Worksheets("Berechnung Rampe").Cells(abb, "BE") And Worksheets("Berechnung Rampe").Cells(aba, "AN") < Worksheets("Berechnung Rampe").Cells(abb, "BJ") Then
Worksheets("Berechnung Rampe").Range(Cells(aba, "AQ"), Cells(aba, "AZ")) = Worksheets("Berechnung Rampe").Range(Cells(abb, "BC"):Cells(abb, "BL")) And Worksheets("Berechnung Rampe").Cells(aba, "CA").Value = "1"
End If
Next
End Sub
|