Zahlen 1-100 gleichmäßig auf Gruppen verteilen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hier das Makro:

Sub verteilen_neu()
Dim BereichVerteilung As Range
Dim Verteilung
Dim VerteilungIst
Dim VerteilungSoll
Dim VertGes As Integer
Dim AnzahlVerteilt As Integer
Dim AnzahlAkten As Integer
Dim i As Integer
Dim Obergrenze As Integer
Dim Untergrenze As Integer
Set BereichVerteilung = Range("A2:F2") 'Der Bereich in dem der Verteilungsschlüssel steht.
'In der nächsten Reihe wird die Anzahl der zu verteilenden Akten eingetragen
BereichVerteilung.Offset(3).Resize(500, BereichVerteilung.Columns.Count).ClearContents
Verteilung = BereichVerteilung
Verteilung = WorksheetFunction.Transpose(Verteilung)
Verteilung = WorksheetFunction.Transpose(Verteilung)
VertGes = WorksheetFunction.Sum(BereichVerteilung)
For i = LBound(Verteilung) To UBound(Verteilung)
Verteilung(i) = Verteilung(i) / VertGes
Next
VerteilungIst = BereichVerteilung.Offset(1, 0)
VerteilungIst = WorksheetFunction.Transpose(VerteilungIst)
VerteilungIst = WorksheetFunction.Transpose(VerteilungIst)
VerteilungSoll = Verteilung
Untergrenze = InputBox("verteilen von: ")
Obergrenze = InputBox("verteilen bis: ")
AnzahlAkten = Obergrenze - Untergrenze + 1
AnzahlVerteilt = WorksheetFunction.Sum(BereichVerteilung.Offset(1, 0))
VertGes = AnzahlAkten + AnzahlVerteilt
For i = LBound(Verteilung) To UBound(Verteilung)
VerteilungSoll(i) = Verteilung(i) * VertGes
Verteilung(i) = Verteilung(i) * AnzahlAkten
Next
Dim sz As String
Dim zz As Integer
Dim zuVerteilen As Integer
Dim letzteZeile As Long
Dim PlatzGefunden As Boolean
sz = ""
zuVerteilen = AnzahlAkten
Do
Do
zz = Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
Loop While InStr(1, sz, "#" & zz & "#") > 0
sz = sz & "#" & zz & "#"
i = 1
PlatzGefunden = False
Do
If Verteilung(i) >= 1 Then 'so lang eine normale Verteilung möglich ist wird normal  _
verteilt
letzteZeile = BereichVerteilung.Cells(i).Offset(500).End(xlUp).Row + 1
If letzteZeile  UBound(Verteilung) And Not PlatzGefunden Then 'ist eine Verteilung nicht mö _
glich wird der erste mit der größten differenz zum soll belastet.
Dim mI As Integer, Max As Double
Max = VerteilungSoll(1) - VerteilungIst(1)
mI = 1
For i = 2 To UBound(VerteilungSoll)
If Max  0
BereichVerteilung.Offset(1) = VerteilungIst
End Sub

Insoweit war meine Frage unklar - die Zahlen sollen nicht benachbart sein, soweit das möglich ist. Ja, ich gehe auch davon aus, dass ich zunächst der Gruppe mit dem größten Anteil aus dem freien Bereich "deren" Zahlen zuteile und dann aus dem dann noch freien Bereich die anderen Gruppen bediene. Es geht aber - ganz praktisch - um die Verteilung von Arbeit anhand von chronologisch eingehenden Aufträgen ("Akten"). Wenn ich die Gruppe 3 zuerst bediene, könnte ich zB jede 2 Ziffer (sagen wir: jede ungerade) plus eine Folgeziffer der Gruppe zuteilen. Dann habe ich für alle anderen Gruppen noch 49 gerade Ziffern zwischen 1-100.
Es wäre aber nicht sinnvoll, der Gruppe 3 mit 8 Ziffern zB die Folge "2, 4, 6, 8, 12, 16, 18, 20" zuzuteilen, weil diese dann in einem kurzen Zeitraum - dem Eingang von 20 Akten - bereits die Arbeit zugeteilt bekommt, die sie insgesamt auf einen Eingang von 100 Akten erledigen soll, weil dann erst Überlast und dann Leerlauf herrscht.
Deswegen denke ich, dass man für jede Gruppe den optimalen Abstand der zugewiesenen Zahlen errechnen muss - also zB bei 20 aus 100 jede 5, bei 8 aus 100 jede 12,5 usw. und dann prüfen, ob mit den noch freien Zahlen diese optimalen Abstände bedient werden können. Und wenn dies nicht der Fall ist, weil eine bestimmte Zahl für zwei Gruppen der jeweils "optimale" Abstand wäre, müsste es eine Möglichkeit geben, die Kollision zu entscheiden - also zB Vorrang für die Gruppe, die mehr Zahlen zugewiesen bekommen soll.
Danke für die Beteiligung.

Beliebteste Forumthreads (12 Monate)

Zahlen 1-100 gleichmäßig auf Gruppen verteilen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zahlen 1-100 gleichmäßig auf Gruppen verteilen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread