Zufallszahlen n. System per VBA

amintire · 1970-01-01T00:00:00+00:00

Hallo alle zusammen, ich habe eine Excel Tabelle (siehe Beispielmappe) in der per VBA Zufallszahlen generiert werden sollen. https://www.herber.de/bbs/user/73128.xls In der Zelle B2 muss eine Zahl von 1-16 eingetragen werden, wenn z.B. eine 7 eingetragen wird, dann soll per VBA Zufallszahlen von 1-60 generiert werden (also 7 Zahlen von 1-60) die sollen jeweils pro Spalte B8-B23 eingetragen werden. In dem Beispiel bei 7 Zahlen in der Spalte B8-B14. Der gesamte blau markierte Bereich soll mit Zufallszahlen gefüllt werden, wobei sich nur insgesamt 3 Zahlen pro Spalte wiederholen dürfen. Hoffe das es nicht zu kompliziert ist und freue mich auf jeden Lösungsvorschlag. Vielen Dank für eure Hilfe. Lieben Gruß Amina

Hallo
Du solltest schon wissen was Du willst !
Zitate:
Es dürfen sich Zufallszahlen wiederholen, aber nur maximal drei Zahlen pro Spalte. Muss aber keine Bedingung sein, also wenn sich Zahlen wiederholen sollten dann eben nur maximal drei Zahlen. ...
also pro Spalte sollen sich keine Zahlen wiederholen. Aber im gesamten blauen Bereich können sich maximal drei Zahlen wiederholen.

was willst denn denn nun wirklich ?

Das war also keine Fehler in meiner Datei, sondern es war ein Beispiel mit dem Ansatz,
wie Du da rangehen könntest.
Im unteren Bereich wird per ZählenWenn ausgewertet wie oft sich ein Wert in der Spalte B wiederholt
Bei einem Wert größer 3 bekommst Du in Spalte(1) per bedingter Formatierung eine Meldung.
Ist also der Max(Wert) größer 3 sollte das Makro wiederholt werden.

und wie stellst Du Dir das vor:
16x30 Zellen hat Dein blau umrahmter Bereich. Das sind 480 Zellen in denen ein Zufallswert stehen kann
Du wilst aber Zufallszahlen nur von 1-60 und zwar 1 bis 16 Zahlen pro Spalte!
Wie willst Du 480 Zellen mit Zufallszahlen bis max. 60 füllen, wenn sich im Bereich max. 3 Zahlen wiederholen dürfen ?
Also entweder hab ich Dich total falsch verstanden, oder Du hast einen Denkfehler.
Gruß Matthias

Hallo
Ich habe in der Datei noch einen Fehler endeckt !
Im unteren Bereich hatte ich immer nur mit Spalte B verglichen.
Somit sind "Doppelte" möglich.
Hier mal der neue Code und in einer Prozedur für alle Spalten (und korrigiert ...)

Option Explicit
Sub Zufall()
Dim schleife As Long, x As Long, MyWert, y As Long, SpZ As Long
Randomize
schleife = Range("B2").Value
Application.ScreenUpdating = False
For SpZ = 2 To 31
neu:
Range(Cells(8, SpZ), Cells(23, SpZ)).ClearContents
y = 8
For x = 1 To schleife
MyWert = Int((60 * Rnd) + 1)
Cells(y, SpZ).Value = MyWert
y = y + 1
Next
If Cells(25, SpZ)  1 Then GoTo neu
Next
Application.ScreenUpdating = True
End Sub

neue Bsp.Datei:
https://www.herber.de/bbs/user/73134.xls
bei 16 Zufallszahlen pro Spalte dauert es allerdings etwas länger!
Ansonsten sollte es aber funktionieren.
Gruß Matthias

Forumthread: Zufallszahlen n. System per VBA

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Zufallszahlen mit VBA generieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)