Zufallszahlen mit mehreren Abhängigkeiten

Hallo,
ich habe derzeit eine (sehr) umständliche Lösung und suche nach einer Optimierung:
Aus den Zahlen von 1 bis 90 müssen 9 Zahlen ausgewählt werden, wobei folgende Bedingungen zu beachten sind:
1. Es werden 3 Zahlenblöcke erstellt mit je 30 Zahlen.
2. Aus diesen Zahlenblöcken müssen
a) aus dem ersten Block 4 Zahlen sein
b) aus dem zweiten Block 2 Zahlen sein und
c) aus dem dritten Block 3 Zahlen sein.
Ich habe dies momentan so gelöst, dass ich innerhalb der Blöcke "Ranglisten" erstelle und dann die jeweilige Anzahl ermittle. Das bedeutet allerdings, dass ich sehr viele Berechnungen erstellen muss, bis dann ein richtiges Ergebnis dabei ist.
Optimal wäre natürlich eine Lösung, die schneller zum Ziel kommt.
Hier meine Musterdatei, die im ersten Bereich "meine Originallösung" mit den vielen notwendigen Rechenvorgängen zeigt. Und im 2. und 3. Bereich jeweils eine "fertige Lösung".
https://www.herber.de/bbs/user/130683.xlsx
Vielen Dank für eine Hilfe.
mfg

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub zz() Dim sp(9) As Long, m As Long, n As Long, x As Long Dim spalte As Long, zeile As Long, d As Long, s As String s = Space(10) For n = 1 To 9 Do x = Int(Rnd * 10) + 1 Loop Until Mid(s, x, 1) = " " sp(n) = x: Mid(s, x, 1) = "X" Next [A1:J1].ClearContents For n = 1 To 9 If n

Hallo MM,
vielen Dank für die Lösungsmöglichkeit (passt leider noch nicht ganz, siehe unten).
Der "Verwendungszweck" dieser Analyse sind Beziehungen im Bereich Lieferanten / Kunden / Ware. Aus Vereinfachungsgründen haben wir die verschiedenen Beziehungen in 90 Nummern aufgeteilt. Wenn es für die Analyse eine schöne EXCEL-Lösung gäbe (wie diese hier), dann würden wir das noch entsprechend erweitern, ausbauen. Solange wir keine entsprechende Lösung haben, halten wir das auf Sparflamme.
Zu Deiner Lösung: Der Code berücksichtigt derzeit immer nur die jeweils erste Zeile aus den drei Blöcken.
Ich habe versucht, die 3 Zeilen pro Block in einer Zeile zusammenzufassen und den Code anzupassen, aber das hat natürlich nicht geklappt.....
In der Anlage die Datei mit Deinem Code und die eingebauten "Kontrollberechnungen".
https://www.herber.de/bbs/user/130718.xlsm
Danke nochmals.
mfg

Sub zz() Dim sp(9) As Long, m As Long, n As Long, x As Long Dim spalte As Long, zeile As Long, d As Long, s As String Dim c As Long If [A1] 1 Then Matricks s = Space(10) For n = 1 To 9 Do x = Int(Rnd * 10) + 1 Loop Until Mid(s, x, 1) = " " sp(n) = x: Mid(s, x, 1) = "X" Next [A1:J11].ClearFormats [A10:J11].ClearContents For n = 1 To 9 If n

Beliebteste Forumthreads (12 Monate)

Zufallszahlen mit mehreren Abhängigkeiten

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread