Excel mogelijke combinaties laten uitrekenen

[Pieter2506]

Hallo!

Het gebeurt geregeld dat klanten meerdere facturen betalen zonder te specificeren welke facturen specifiek betaald worden.
Aangezien het vaak grote organisaties zijn is mailen/bellen vaak een doolhof waar niet door heen te komen is.
Kan ik Excel een lijst met alle mogelijke opties laten berekenen a.d.h.v. een lijst met openstaande facturen i.c.m. het bedrag van de betaling?

Zie onderstaand voorbeeld waar in kolom A facturen staan en in kolom B de factuur waarde.
Nou betaald de klant €893,95 (cell D2) en wil ik Excel zelf laten berekenen dat dan facturen 1,6 en 8 betaald zijn.

Alvast bedankt voor jullie hulp!

 

[JEC.]

Als je deze achter een module plakt:
Heb je office 365?

Dim sp As String
Function G_Combo(rng As Variant, xTot As Double, Optional cnt As Long = 1) As Variant
 Dim ar, xSum As Double, i As Long
 ar = rng
 sp = vbNullString
 For i = cnt To UBound(ar)
   xSum = Round(xTot, 2) - Round(ar(i, 1), 2)
   If xSum = 0 Then
     sp = sp & "|" & ar(i, 1)
     Exit For
   ElseIf xSum > 0 Then
     G_Combo ar, xSum, i + 1
     If Len(sp) Then
       sp = sp & "|" & ar(i, 1)
       Exit For
     End If
   End If
 Next
 G_Combo = Split(Mid(sp, 2), "|")
End Function

Kun je vervolgens gebruiken als

=TRANSPONEREN(G_Combo(B2:B11;D2))

 

[JEC.]

Hier ook nog een oplossing met de solver
Als je de add-in installeert, zie je de parameters al ingevuld. (zie afbeelding)