zahlen zufällig füllen (zufallsgenerator)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Andreas,
wie du auch den anderen Beiträgen entnehmen kannst existiert in Excel keine "fertige" Funktion zum Erstellen von exakt 5000 unterschiedlichen Zufallszahlen.
Mit Roberts Lösungsvorschlag (=ZUFALLSBEREICH(9000000;9999999)) werden zwar Zufallszahlen im gewünschten Zahlenraum erstellt, aber auch hierbei sind theoretisch "Doppler" möglich. Das lässt sich über die Wahrscheinlichkeitsrechnung sogar statistisch belegen !
Genau aus diesem Grund ermittelt auch mein Lösungsvorschlag etliche redundante Zahlen, da es im Zahlenraum 0 bis 1 (bei 7 stelliger Genauigkeit) statistisch auch zu Dopplern kommen kann (aus genau diesem Grund gewinnt auch ab und zu jemand einen Millionenbetrag im Lotto : Wenn nämlich "seine" Zahlen und die gezogenen Zahlen "zufällig" identisch sind ;-).
Die Redundanzen lassen sich nur über zusätzliche Funktionen in Hilfsspalten eliminieren - siehe Erichs Lösungsvorschlag in Verbindung mit www.excelformeln.de
Gruß, NoNet
PS: Per VBA könnte ich Dir auch eine funktionierende Lösung anbieten !

Sub Zufall() Dim i As Integer Application.ScreenUpdating = 0 Cells(1, 1) = Int(9000000 + Rnd * 1000000) For i = 2 To 5000 Do Cells(i, 1) = Int(9000000 + Rnd * 1000000) Loop Until Cells(i, 1) Cells(i - 1, 1) Next Application.ScreenUpdating = -1 End Sub

Public Sub DoppelteSuchen() Dim lZeile As Long Application.ScreenUpdating = 0 For lZeile = 1 To 5000 If Application.WorksheetFunction.CountIf(Columns(1), Range("A" & lZeile).Value) > 1 Then Range("B" & lZeile).Value = "doppelt " & _ Application.WorksheetFunction.CountIf(Columns(1), Range("A" & lZeile).Value) End If Next lZeile Application.ScreenUpdating = -1 End Sub

Sub ZufList() Dim arrZ, ii As Long arrZ = Zufallsliste(5000) For ii = 1 To 5000 arrZ(ii) = arrZ(ii) + 9000000 Next ii Cells(1, 1).Resize(5000) = Application.Transpose(arrZ) End Sub Function Zufallsliste(intI As Integer) ' Zahlen 1 bis Anzahl ohne Wiederholungen - ingUR 04.12.2006 ' www.herber.de/forum/archiv/824to828/t825988.htm Dim ii As Long, iLosNr As Long, arrOK() As Boolean, arrLos() As Long ReDim arrOK(1 To intI), arrLos(1 To intI) Randomize For ii = 1 To intI Do iLosNr = Int((intI * Rnd) + 1) If Not arrOK(iLosNr) Then arrLos(ii) = iLosNr: arrOK(iLosNr) = True Loop Until arrLos(ii) > 0 Next Zufallsliste = arrLos End Function

Hi Andreas,
teilweise haben sich deine Fragen wohl schon schnell von selbst erledigt...
Die Zeile, mit der Dubletten vermieden werden, ist
If Not arrOK(iLosNr) Then arrLos(ii) = iLosNr: arrOK(iLosNr) = True
Hilft dir das?
Zu deinen Frage davor:
- wieso es geht
Ja, was soll man darauf antworten? Weil keine Fehler im Code sind?
- wo man es einstellt wieviele zeilen bzw. unterschiedliche zahlen man will
Ist denn nicht klar, dass das die 5000 ist (kommt 2 mal im Code vor).
- wo man festlegt wie das format aussieht.. also ob die 900 davor steht, oder ob 90 davor oder 800
Das mit der 9 davor hat NICHTS mit Format zu tun.
Da wird einfach 9000000 zu jeder Zufallszahl addiert.
Bei "Excel gut - VBA nein" sollte dir eigentlich die Formellösung näher liegen.
Bekomme ich noch eine Antwort auf meinen Post von gestern, 20:08:10 Uhr
Kopieren einer Formel in mehrere Zellen
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

zahlen zufällig füllen (zufallsgenerator)

38
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

zahlen zufällig füllen (zufallsgenerator)

38 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

38
Beiträge zum Forumthread

Beiträge zu diesem Forumthread