Hm. Ich muss gestehen, das ich durch das Programm nicht durchsteige.
Was macht dort die Step anweisung? Bedeutet es das die For Schleife in bestimmten Schritten hochzählt?
For p = 4 To 100 Step 4 ' Mast
Bedeutet es das die Anzahl der Münzen für den Mast 4, 8, 12, ... sein kann? Warum nicht 5, 6, ...
Wie wird hier sichergestellt, das ein höherer Rang, mind. soviele Münzen bekommt wie der Rang unter ihm?
Also dein Programm scheint ja richtig zu sein. Immerhin kommt auch das heraus was ich raus habe. Allerdings verstehe ich das Programm nicht wirklich :(
Wäre nett, wenn Du mir vielleicht auf die Sprünge helfen könntest.