VBA-Schleife - 6 Zahlenwerte sollen gleichmäss reduziert werden

Unternehmen_Start_____Schleife___________Zwi-Ergebnis__Endergeb

A___________ 30%____ 30% - 30% * 0,01_____29,7%

B___________   8%____ 8% * 8% 0,01_________7,92%

C___________   5%_________usw____________4,95 %

D___________  23 % ________usw___________22,77 %

E___________  34 % ________usw____________33,66 %

F___________  10 %_________usw____________9,90%


SUMME______ 110%___________109%___________100%

Es soll nun in VBA eine Schleife programmiert werden, die jeden Zahlenwert ?

der Reihenfolge nach um bspw. 0,01 % reduziert.

Die Schlaufe läuft so oft durch bis 100% erreicht ist.

Der in der Ausgangssituation genannte Wert von 110 % kann auch unter 100 liegen-

dann soll ebenso optimiert werden bis 100 erreicht wurde (bsp 30% + 30%*0,01)

Hi

Und wo ist das Problem? 8)
In einer While Schleife die Summe abfragen und a-f sind Variablen die du in der Schleife verändern lässt.

Gruß, Michael