Hallo,
ich möchte mir das "zur Bank gehen" erleichtern.
Ich habe Budget X (Beispiel: 10.000€), diese sollen nun verteilt werden auf die jeweilig verfügbaren Euro-Scheine.
Die Summe muss insgesamt 100% ergeben.
Also:
Gegeben 10.000€
5x 500€
6x 200€
5x 100€ etc. - Bis zum 5€ Schein.
== 10.000€
Hat der wer eine Excelformel parat?
Danke und liebe Grüße
Folgendes habe ich mir gebastelt:
VBA Code sieht aus wie folgt:
Sub Schaltfläche_Klicken()
Dim totalBudget As Double
Dim billValue As Double
Dim billCount As Integer
Dim billWeight As Double
Dim remainingBudget As Double
'Prompt user for total budget
totalBudget = InputBox("Enter total budget:")
remainingBudget = totalBudget
ActiveSheet.Range("B9").Value = totalBudget
'Array of bill types and weighting
billTypes = Array(500, 200, 100, 50, 20, 10, 5)
billWeights = Array(0.1, 0.2, 0.3, 0.2, 0.1, 0.05, 0.05)
'Distribute budget based on weighting
For i = 0 To 6
billValue = billTypes(i)
billWeight = billWeights(i)
billCount = billWeight * (totalBudget / billValue)
remainingBudget = remainingBudget - (billCount * billValue)
ActiveSheet.Range("A" & i + 1).Value = billCount
Next i
End Sub
Leider finde ich meinen Denkfehler noch nicht, da nicht der gesamteingegebene Wert verarbeitet wird. Häufig bleibt ein unlogisch Rest (bspw: User: 1450€, berechneter Geldwert der Scheine jedoch 1185€, sprich man hätte nochmal 2x 100€ mindestens ausgeben lassen können.
