Office: (Office 2007) Welche Zahlen ergeben die entsprechende Summe?

Hallo,

das Thema interessiert mich auch und habe den Lösungsweg mitverfolgt.

ei mir ist der Code an der Stelle "SolverOk" abgebrochen.
Nun habe ich es in der Reihenfolge der Verweise mal nach oben geschoben:
nun funktionierts!

Evtl. hilft das?

Gruß
Dan

P.S. Excel 2002

 

Was ich als Laie jetzt nicht verstehe: der "Solver" ist doch das Add-In bei mir - wieso funktioniert dann Deine Datei bei mir und meine nicht ?? Die arbeitet doch dann mit dem gleichen Add-in ........??!!

 

Hallo Martin,

funktioniert nun eine Datei? Wenn alle Parameter gleich sind, dürfte es keine Abweichungen geben.


Hallo Lord_Hirni_V2
danke für dein Feedback. (BTW: Es gab doch auch mal Lord_hirni, ohne V2. Warst du das auch?)

 

Also zur Info: wie bereits beschrieben, funktioniert der Code leider (noch) nicht. Es gibt aber auch keine Fehlermeldungen, sondern nur falsche Ergebnisse.....
Wir haben ja immer die Originaldatei hin und hergeschickt.

BTW: bei mir Excel 2003

 

Hallo,

Ich dachte du hast 2007, da du im Titel 2007 angegeben hast.
Also hier sind meine Parameter. kontrolliere die bitte bei dir nochmal nach.

 

Tut mir leid, wenn ich da mit falschen Angaben (Ex2003) gearbeitet habe, sorry. Ich werd's mal testen und geb wieder Laut....
Danke zunächst mal, mach jetzt aber meinen Schreibtisch dicht.
Schönen Abend allerseits
Martin

EDIT: hab's noch schnell kontrolliert - alle Einstellungen identisch *frown.gif*

 

Morgen,

man kann das auch per VBA lösen. Da es bei 20 Summanden aber bereits 2 ^ 20 = 1048576 Möglichkeiten gibt Teilsummen zu bilden, könnte es etwas dauern alle (oder auch nur eine) Lösung(en) zu bestimmen.

Die Zahlen nach A1:Axxx, das Ergebnis nach C1. Die Ausgabe erfolgt im VBA-Direktfenster.

cu, Bernd
--
Option Explicit

Sub x()
Dim lngAnzahl As Long, ar As Variant, i As Long, j As Long, dblVal As Double, dblSum As Double

lngAnzahl = Range("A1").End(xlDown).Row
If lngAnzahl > 25 Then Exit Sub

dblVal = Range("C1")
ar = WorksheetFunction.Transpose(Range("A1").Resize(lngAnzahl))

For i = 0 To 2 ^ lngAnzahl - 1
dblSum = 0
For j = 0 To lngAnzahl - 1
If i And 2 ^ j Then dblSum = dblSum + ar(j + 1)
Next
If Abs(dblSum - dblVal) < 0.00001 Then
For j = 0 To lngAnzahl - 1
If i And 2 ^ j Then Debug.Print ar(j + 1);
Next
Debug.Print
End If
Next
End Sub

 

Super ! Das funkt! Hab mir die Ausgabe noch ins Arbeitsblatt gelegt und jetzt klappt es hervorragend! Und das mit der Antwortzeit ist vertretbar, bei 280 Zeilen grad mal 4 sec.....

Besten Dank, hat mir sehr geholfen.

Gruß
Martin