Sub DoTheMath ()
LastR als lang verdunkeln
Mit ActiveSheet
LastR =. Zellen (. Rows.Count, „c“). Ende (xlUp). Reihe
. Strecke („d2: d“ u. LastR). Formel = „=VLOOKUP (PERCENTRANK (C$2: C$“ u. LastR u. _
„, C2), {0, "" D ""; 0.2500001, "" C ""; 0.5000001, "" B ""; 0.7500001, "" A ""}, 2)“
. Strecke („b“ u. (LastR + 2)) = „Gesamtmenge“
. Strecke („c“ u. (LastR + 2)). Formel = „=SUM (C2: C“ u. LastR u. ") „
Ende mit
Enden-Unterseeboot
|