Ich habe folgende Anforderung. Ich sollte aus der nachfolgenden Schleife (geht von Zeile 1000 rückwärts) die erste Zeile (sprich die Zeile mit der höchsten Zeilennummer) ermitteln. Die Schleife muss aber trotzdem fertig laufen.
For i = 1000 To 2 Step -1
If .Cells(i, 1).Value <> "" Then Range(Cells(2, 54), Cells(2, 76)).Copy Range(Cells(i, 54), Cells(i, 76))
Next
Dann sollte ich der Formel
=SUMMENPRODUKT(($AN$2:$AN$XX=$AN2)*($J$2:$J$XX))
beibringen, dass das XX durch den Zeilenwert ersetzt wird. Die fertige Formel kann entweder aus einer Excel-Mappe kopiert werden oder durch das Makro eingetragen werden.
Die 2. Anforderung müsste ich lösen können, doch bei der ersten tue ich mir schwer.
Anregungen sind erbeten.
Danke Joni