folgende ArrayFormel habe ich geschrieben und möchte diese nun
per Makro in den Zellbereich E107:E200 schreiben :
={WENN(B107="";"";RANG(D107;D$106:D$198)+SUMME((RANG(D$106:D106;D$106:D$198)=RANG(D107;D$106:D$198))*1))}
Die mit dem MakroRecorder aufgenommene VBA Zeile lautet :
Range("E107:E200").FormulaArray = "=IF(RC[-3]="""","""",RANK(RC[-1],R106C[-1]:R198C[-1])+SUM((RANK(R106C[-1]:R[-1]C[-1],R106C[-1]:R198C[-1])=RANK(RC[-1],R106C[-1]:R198C[-1]))*1))"
Als Ergebnis habe ich nun allerdings in allen Zellen des Bereichs ein und
die selbe Formel stehen. Nämlich :
={WENN(B108="";"";RANG(D108;D$106:D$198)+SUMME((RANG(D$106:D107;D$106:D$198)=RANG(D108;D$106:D$198))*1))}
er zählt also nicht innerhalb der Arrayformel bei der nächsten Zelle weiter.
Wie aber kann ich das erreichen ?
Muß ich jeder Zelle des Arrays einzeln die Array-Formel geben ?
An dieser Stelle
Herzlichen Dank
für die Hilfe
R.Schmitt