Betrag aufspliiten mit aufrunden

Ein Hallo in die frohe Runde!
Ich habe mir eine Aufgabe gestellt, deren Lösung irgendwie durch die Finger flutscht...
So richtig komme ich mit den Suchergebnissen auch in diesem Forum leider nicht auf die Reihe, darum wage ich es nach Stunden der Suche mich doch an euch zu wenden:
Ich habe einen gewissen Wert an Müllaufkommen in Litern ermittelt (ganz lecker, ich weiß...).
Um den abholen zu lassen, gibt's Mülltonnen mit
- 1100 l
- 660 l
- 240 l
- 120 l
Wie kann ich diese x Liter so optimal auf die möglichen Tonnengrößen verteilen, dass nur ein Minimum hinterher überschritten wird und ich nicht zu viele Tonnen aufstellen muss? (Das Ganze geht dann nämlich für Restmüll, Bio, Papier, Wertstoffe, Speiseabfälle, Glas...)
Die Beispiele mit Geldaufsplitten in Scheine und Münzen sind immer ganz nett, aber hier kann man bis zum letzten Cent aufteilen. -- Bei mir muss eine gewisse Menge überschritten werden. Reicht daher zum Schluss einfach ein "Aufrunden"? -- Ich will jedoch auch die Anzahl der Tonnen irgendwie optimieren.
Also, sollte einem Formelprofi langweilig sein ;-) ---- mein Dank ist ihm gewiss!!
Viele Grüße vom Chiemsee
Robert

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hi
interessante Aufgabe, aber wie ich schon schrieb, das interessante sind die Kosten und da wird man mit Formeln keine Lösung erhalten.
da VBA gut angegeben ist, habe ich eine Funktion geschrieben, die alle Varianten durchrechnet und die beste in Bezug auf Kosten ausgibt.
damit das ganze funktioniert, muss man das ganze so aufbauen:
1. den unten gezeigten Code in ein allgemeines Modul
2. die Volumen der Tonnen müssen in einer Spalte untereinander stehen
3. die Kosten pro Tonne müssen in der Spalte daneben stehen
4. Müllvolumen und die maximale Anzahl an Tonnen die verwendet werden darf können in zwei weiteren Zellen angegeben werden oder auch direkt in der Formel.
um die Formel einzugeben, markiert man die Zellen neben der PreisSpalte, gibt die Formel in der Form ein:
C2:C5: =Tonnenoptimierung(B1;C1;A2:B5)
die Eingabe muss mit STRG+SHIFT+ENTER abgeschlossen werden.
B1: Müllvolumen
C1: Maximale Anzahl an Tonne
A2:B5: Liste mit Tonnenvolumen und Preis
hier der Code, die Berechnung erfolgt mit Rekursion, daher ist die Anzahl der verwendbaren Tonnen flexibel.

Option Explicit
Dim Tonne, Preis, Kosten, Volumen, Anzahl, Ergebnis
Dim KostenMin As Double
Dim AnzahlMin As Double
Dim AnzT As Long
Dim MaxAnz As Long
Dim MüllVol As Double
Function Tonnenoptimierung(MüllVolumen As Double, MaxAnzahl As Long, LiterPreisListe) As  _
Variant
Dim x As Long
Dim i As Long
x = UBound(LiterPreisListe.Value, 1)
AnzT = x
MaxAnz = MaxAnzahl
MüllVol = MüllVolumen
ReDim Tonne(1 To x)
ReDim Preis(1 To x)
ReDim Kosten(1 To x)
ReDim Volumen(1 To x)
ReDim Anzahl(1 To x) As Long
For i = 1 To x
Tonne(i) = LiterPreisListe(i, 1)
Preis(i) = LiterPreisListe(i, 2)
Next
KostenMin = 9 ^ 9
AnzahlMin = 9 ^ 9
Call Rechnen(1)
Tonnenoptimierung = WorksheetFunction.Transpose(Ergebnis)
End Function
Private Sub Rechnen(pos As Long)
Dim Kst   As Double, Vol As Double, Anz As Long
Dim z As Long
For z = 0 To MaxAnz
Anzahl(pos) = z
Kosten(pos) = z * Preis(pos)
Volumen(pos) = z * Tonne(pos)
If pos = MüllVol Then
If Kst

wer nur auf restvolumen optimieren will, gibt als Preis Werte ein, die proportional zum Tonnenvolumen sind.
Gruß Daniel

Option Explicit Dim Tonne, Preis, Kosten, Volumen, Anzahl, Ergebnis Dim KostenMin As Double Dim AnzahlMin As Double Dim AnzT As Long Dim MaxAnz As Long Dim MüllVol As Double Function Tonnenoptimierung(MüllVolumen As Double, MaxAnzahl As Long, LiterPreisListe) As _ Variant Dim x As Long Dim i As Long x = UBound(LiterPreisListe.Value, 1) AnzT = x MaxAnz = MaxAnzahl MüllVol = MüllVolumen ReDim Tonne(1 To x) ReDim Preis(1 To x) ReDim Kosten(1 To x) ReDim Volumen(1 To x) ReDim Anzahl(1 To x) As Long For i = 1 To x Tonne(i) = LiterPreisListe(i, 1) Preis(i) = LiterPreisListe(i, 2) Next KostenMin = 9 ^ 9 AnzahlMin = 9 ^ 9 Call Rechnen(1) Tonnenoptimierung = WorksheetFunction.Transpose(Ergebnis) End Function Private Sub Rechnen(pos As Long) Dim Kst As Double, Vol As Double, Anz As Long Dim z As Long For z = 0 To MaxAnz Anzahl(pos) = z Kosten(pos) = z * Preis(pos) Volumen(pos) = z * Tonne(pos) If pos = MüllVol Then If Kst

Beliebteste Forumthreads (12 Monate)

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread