Zufallszahlen n. System per VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Zufall() Dim schleife As Long, x As Long, MyWert, y As Long schleife = Range("B2").Value Range("B8:B23").ClearContents y = 8 For x = 1 To schleife MyWert = Int((60 * Rnd) + 1) Cells(y, 2).Value = MyWert y = y + 1 Next End Sub

Hallo Matthias,
vielen Dank für deine schnelle Antwort. Habe aber einen Fehler in deiner Beispieldatei entdeckt, also pro Spalte sollen sich keine Zahlen wiederholen. Aber im gesamten blauen Bereich können sich maximal drei Zahlen wiederholen.
Zu deinen Fragen:
Dürfen oder müssen/sollen sich Zufallszahlen wiederholen ?
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.
Darf man den Hintergrund erfahren, um evtl. einen anderen Weg zu testen ?
Statistische Auswertungen per Zufall ;)
Aus welchem Grund stehen die Zahlen 1 - 60 in Zeile 5 ?
Hierbei gibt es keinen Grund, ist nur als Info das eben die Zahlen 1-60 per Zufall generiert werden sollen, evtl. hätte man es für den Code benötigt?
Vielen Dank,
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

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

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zufallszahlen n. System per VBA

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

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread