Anzahl möglicher Reihenfolgen

Hallo zusammen,
ich benötige leider eure Hilfe.
Ich erstelle aktuell eine Kalkulation in Excel.
Grober Aufbau:
Ich habe ich eine Liste mit 10 Personen. Die Personen 1-10 gebe ich nacheinander per Makro in eine Excel Berechnung ein und gebe die Ergebnisse je Person per Makro danach in einer Tabelle aus.
Bei den Ergebnissen habe ich ein Startdatum von Person 1 und prüfe wie lange es dauert bis bspw. alle nacheinander Urlaub genommen haben und was das Enddatum bei Person 10 wäre.
Das klappt soweit ganz gut.
Nun zu meiner Frage:
Ich möchte die Berechnung erweitern und die Reihenfolge der Personen 1-10 zu allen möglichen Kombinationen erweitern. Jede Kombination soll dann in die Berechnung eingegeben werden.
Für jede Kombination sollen die Ergebnisse dann ausgegeben werden. Ich möchte dadurch die kürzeste Gesamtdauer aller möglichen Kombinationen der Personen 1-10 herausfinden.
Mir fehlt leider der Ansatz wie ich eine Schleife erstellen kann, damit alle möglichen Reihenfolgen nacheinander erstellt und diese dann in der Berechnung eingegeben werden können.
Habt ihr einen Tipp wie ich das anstellen kann?
Mir fehlt leider komplett der Ansatz..
Vielen Dank für eure Hilfe!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Thomas
Ich habe noch einmal nachgedacht. Die Anzahl Variationen ist deutlich höher.
10 Personen = knapp 4 Mio.
11 Personen = ca. 40 Mio.
12 Personen = ca. 479 Mio.
13 Personen = ca. 6 Mia.
10 Personen könnte man mit viel Geduld (ein paar Stunden) womöglich noch einzeln durchrechnen.
Das unten angefügte Makro listet die Varianten bei 10 Personen. Zahl 0 = Person 10.
(Ursprung Makro: https://www.vb-paradise.de/index.php/Thread/73418-Abbilden-einer-Reihenfolge/)
Weiter habe ich dann nicht mehr programmiert.
Ich denke der richtige Ansatz wäre vermutlich eine Zielwertsuche. Hängt allerdings von der Anzahl Variablen ab.
Insgesamt (mit den Variablen) wird es vermutlich eine ziemlich komplexe Aufgabe. Hier müssten dann wahrscheinlich irgendwelche Kombinatorik-Profis ran, jedenfalls bin ich als Hobby-VBA'ler vermutlich fehl am Platz.
cu
Chris
Dim j As Long, jj As Long

Sub cmdTest()
j = 1
jj = 0
Call permut(0, 1234567890)
End Sub

Sub permut(ByVal einzel As String, ByVal rest As String)
Dim neuEinzel, neuRest As String
Dim i As Integer
If Not rest = "" Then
For i = 1 To Len(rest)
neuEinzel = einzel & Mid(rest, i, 1)
neuRest = Replace(rest, Mid(rest, i, 1), "")
Call permut(neuEinzel, neuRest)
Next i
Else
Range("A1").Offset(j, 0 + jj).Value = Right(einzel, 10)
If j Mod 1000000 = 0 Then
jj = jj + 1
j = 0
End If
j = j + 1
End If
End Sub

Sub permut(ByVal einzel As String, ByVal rest As String) Dim neuEinzel, neuRest As String Dim i As Integer If Not rest = "" Then For i = 1 To Len(rest) neuEinzel = einzel & Mid(rest, i, 1) neuRest = Replace(rest, Mid(rest, i, 1), "") Call permut(neuEinzel, neuRest) Next i Else For i = 1 To intAnzahl Range("A1").Offset(0 + i - 1, j).Value = Mid(einzel, i, 1) Next i j = j + 1 End If End Sub

Sub permut(ByVal einzel As String, ByVal rest As String) Dim neuEinzel, neuRest As String Dim i As Integer If Not rest = "" Then For i = 1 To Len(rest) neuEinzel = einzel & Mid(rest, i, 1) neuRest = Replace(rest, Mid(rest, i, 1), "") Call permut(neuEinzel, neuRest) Next i Else Range("A1").Offset(j, 0 + jj).Value = Right(einzel, 10) If j Mod 1000000 = 0 Then jj = jj + 1 j = 0 End If j = j + 1 End If End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread