Mal was zum Grübeln...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Patrick,
in VBA ist der Algorithmus doch relativ simpel (soweit ich jetzt nichts übersehen habe). Es kommt jetzt nur noch darauf an, ob du auch noch eindeutige Reihenfolgen der Kombinationen möchtest oder nicht, heißt:
Unterscheidest du zwischen 3*20+4*10 und 2*20+4*10+1*20?
Wenn nein dann einstufiges Vorgehen, sonst zweistufiges Vorgehen
erste Stufe:
1. lies die 27 Zahlen in ein Array1(1to27) ein und sortiere Werte in aufsteigender Folge (sollten Werte mehrfach kommen, dann kannst du das Array auch kleiner wählen.
2. dann ein Array2(1 to Aufrunden(Zielwert/Array1(1)))
3. Fülle Array2 von Array2(1) beginnend bis zum letzten Element und prüfe, ob Zielwert erreicht(dann Ausgabe als eine Kombination) oder überschritten
4. Wenn überschritten, dann lösche letztes gefülltes Element von Array2() und erhöhe das vorletzte um den nächstgrößeren aus Array1() und fülle Array2() weiter aus mit diesem Wert, solange bis Zielwert erreicht(=Ausgabe) oder überschritten (dann drittletztes Element erhöhen)
Bsp. mit Wertliste 10, 20 25, Zielwert=100
1. Array1(1)=10, Array1(2)=20,Array1(3)=25
2. Array2(1 to 10)=0
3. ausfüllen Array2 bis Array2(10)=10 - Zielwert erreicht, 1. Lösung
4. lösche Array2(10), erhöhe Array2(9) von 10(=Array1(1)) auf 20(=Array1(2)) - nächste 2. Lösung
5. lösche Array2(9), erhöhe Array2(8) von 10(=Array1(1)) auf 20(=Array1(2)) - Wert ist 90, bei nächsten Eintrag in Array2(9) mit dem Wert von Array1(2) Überschreitung (mit Wert aus Array1(1) brauchst du nicht zu prüfen, da dies nur eine Variation der schon gefundenen 2. Lösung wäre, mit Array1(3) ebenfalls nicht, da aufsteigend sortiert und schon bei Array1(2) eine Überschreitung)
6. lösche Array2(9), lösche Array2(8),erhöhe Array2(7) von 10(=Array1(1)) auf 20(=Array1(2)) - Wert 80
7. setzte Array2(8) auf 20(=Array1(2)) - Zielwert erreicht, nächste 2. Lösung
8. Schleife über die Schritte 4-7, Abbruch, wenn alles Elemente aus Array2 mit Array1(3) besetzt und Summe größer/gleich Zielwert
usw, usf
Als Ergebnis erhältst du alle eindeutigen Kombinationen ohne Beachtung der Reihenfolge
im zweiten Schritt kannst du bei Beachtung der Reihenfolge alle eindeutigen Kombinationen der bisherigen Lösungen ermitteln.
das jetzt noch in VBA zu gießen, sollte ja kein Problem sein
Gruß
Harry

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread