title image


Smiley ne 5€ münze hab ich noch nie gesehen, aber:
wenn denn dein code funktioniert, so prüfe doch einfach die folge:





DIM BOL AS BOOLEAN

.....

If n = 0 Then ' Wenn alles Geld in Münzen zerlegt wurde



BOL=TRUE

FOR I=2 TO EBENE-1

IF FOLGE(I)>FOLGE(I-1) THEN BOL=FALSE

NEXT I

IF BOL THEN

Debug.Print

For i = 1 To ebene - 1

Debug.Print Folge(i) 'Ausgabe im VBA-Direktfenster

Next i

END IF



Else 'Wenn noch Geld aufgeteilt werden muß

...
MfG Holger

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: