Hallo Zusammen,
ich möchte aus einer Zahlenreihe alle möglichen Werte filtern, die in Summe einen bestimmten Wert ergebebn. Im Optimalfall, würde das Ergebniss so ausgegeben, dass man direkt sieht, welche Zahlenpaare/gruppen in Kombination den gewünschten Wert ergeben. Ich habe dies mit folgendem Code versucht, jedoch nicht das gewünschte Ergebnis erhalten.
Function GetCombination(CoinsRange As Range, SumCellId As Double ) As String
Dim xStr As String
Dim xSum As Double
Dim xCell As Range
xSum = SumCellId
For Each xCell In CoinsRange
If Not (xSum / xCell < 1) Then
xStr = xStr & Int(xSum / xCell) & " of " & xCell & " "
xSum = xSum - (Int(xSum / xCell)) * xCell
End If
Next
GetCombination = xStr
End Function
Wisst ihr ob das mit VBA in Excel möglich ist und habt eventuell Lösungen?
Vielen Dank und VG
Robert
|