Zufallszahlen mit Excel generieren |
10.06.2004, 09:49 | grybl | Auf diesen Beitrag antworten » | |||||
Zufallszahlen mit Excel generieren Aufgabenstellung: Aus einem bestimmten Zahlenbereich (z.B. 0 bis 1000) soll eine bestimmte Anzahl (z.B.200) von Zufallszahlen ausgegeben werden, von denen keine gleich sein dürfen. Bitte helft mir, mir fehlt der Plan. |
|||||||
10.06.2004, 13:11 | ChrisM | Auf diesen Beitrag antworten » | |||||
Hi. Generell würde die Formel für Zufallszahlen in Excel lauten: =ZUFALLSZAHL()*(Obergrenze-Untergrenze)+Untergrenze Für dein Beispiel also =ZUFALLSZAHL()*1000 Wenn du nur ganze Zahlen haben möchtest, musst du das in ein RUNDEN(Wert;0) einbetten, also =RUNDEN(ZUFALLSZAHL()*1000;0) Du kannst die Formel dann 200 mal nach unten kopieren, in dem du zunächst das Kästchen mit der Formel makiert, dann in dem Kästchen unten rechts auf das kleine Quadrat klickst(der Cursor ist dann ein schwarzes Kreuz mit weißem Hintergrund statt umgekehrt) und dann, während du die Maustaste gedrückt hälst, einfach runterziehen. Wenn ich die Hilfe richtig interpretiert habe, sollten eigentlich keine Zahlen doppelt auftreten. Falls dies doch der Fall sein sollte, fällt mir auch nix mehr ein(Außer vielleicht 200 WENN-Abfragen pro Formel :P) |
|||||||
11.06.2004, 12:37 | grybl | Auf diesen Beitrag antworten » | |||||
Danke für deine Antwort. Nur das 200mal Kopieren finde ich schon etwas umständlich. |
|||||||
15.05.2008, 14:21 | qwerty | Auf diesen Beitrag antworten » | |||||
zufallszahlen Bei der Methode ist es aber nicht so, dass jede Zahl nur einmal vorkommt. |
|||||||
20.05.2008, 09:16 | Zellerli | Auf diesen Beitrag antworten » | |||||
Oh, alter Thread, qwerty. Schau mal auf das Postdatum! |
|||||||
06.01.2009, 23:19 | whackmann | Auf diesen Beitrag antworten » | |||||
abcdefg ACHTUNG mit dieser Formel wird es keine Gleichverteilung geben!!! Die Zahlen 1 und 6 werden nur halb so oft vorkommen. Richtig wäre: =ABRUNDEN(ZUFALLSZAHL()*6+1;0) Gruß, Carsten |
|||||||
Anzeige | |||||||
|
|||||||
30.04.2010, 12:32 | ergo | Auf diesen Beitrag antworten » | |||||
Function Zufallszahlen_Unique() Dim numbers As Integer Dim rndn As Integer Dim numberarray(1 To 200) As Integer 'Array with fixed size 200 Dim aldrawn As Variant For numbers = 1 To 200 'numbers to draw -> must equal array size drawagain: rndn = Int((1000 - 0 + 1) * Rnd + 0) 'Interval 1-1000 aldrawn = Application.VLookup(rndn, Application.Transpose(numberarray), 1, 0) If Not IsError(aldrawn) Then GoTo drawagain Else End If numberarray(numbers) = rndn Range("A" & numbers).Value = rndn Next End Function |
|||||||
01.05.2010, 14:24 | hawe | Auf diesen Beitrag antworten » | |||||
Dann will ich auch mal meinen Senf dazu geben, obwohl die Frage ja gut abgehangen ist :-)...
|
|
Verwandte Themen
Die Beliebtesten » |
|
Die Größten » |
Die Neuesten » |
|