Hallo zusammen,
es wurde ja bereits diskutiert wie man eine bestimmte Ausgangszahl in unterschiedlich große Teile zerlegt, in Abhängigkeit einer Teilanzahl.
Folgendes Makro teilt bspw. 10 Paletten auf 2 Gebinde-IDs auf:
Sub Zahlenteilung()
Randomize Timer
Dim Ausgangszahl As Integer
Dim Teilanzahl As Integer
Dim Zahl As Integer
Dim Sum As Integer
Dim Max As Integer
Dim z As Integer
Ausgangszahl = Cells(2, 2).Value
Teilanzahl = Cells(2, 3).Value
Sum = 0
Zahl = 0
Max = Ausgangszahl
For z = 1 To Teilanzahl - 1
Zahl = Int(Rnd * ((Max / (Teilanzahl - z)) + 1))
Sum = Sum + Zahl
Cells(1 + z, 1).Value = Zahl
If Sum = Ausgangszahl Then
Max = 0
Else
Max = Ausgangszahl - Sum
End If
Next z
If Sum = Ausgangszahl Then
Cells(1 + Teilanzahl, 1).Value = 0
Else
Cells(1 + Teilanzahl, 1).Value = Ausgangszahl - Sum
End If
End Sub
In Excel sieht das dann wie folgt aus:
Aufteilung Anzahl Paletten Anzahl GebindeID Kennung
4 10 2 1
6 10 2 1
25 3 2
25 3 2
25 3 2
80 2 3
80 2 3
Wie man an meiner Tabelle erkennen kann folgt nach der Aufteilung der 10 Palletten auf 2 Gebinde-IDs direkt die nächste Aufteilung.
Vielleicht kann mich jemand helfen und hat eine Idee wie ich das Makro anpassen kann, dass immer bei "wechselnder Kennung" das Makro erneut Ausgangszahl und Teilanzahl abfragt und ausgibt.
Vielen Dank im Voraus.
Grüße
Gianna
