Zufallszahlentabelle
25.08.2003 20:36:24
Alois Posch
Ich habe folgendes Problem:
Mit dem Sub
Sub zufall()
Dim intI As Integer
For intI = 1 To 5
Cells(1, intI).Formula = "=ZUFALLSBEREICH(1,90)"
Next intI
End Sub
erzeuge ich 5 Zufallszahlen aus 90.
Ich möchte aber 3 Zeilen untereinander mit den Zahlen füllen.
In jeder Zeile sollen 5 verschiedene Zahlen aus 90 stehen.
Jetzt mein Zusatzproblem.
Zur besseren Übersicht sollen die 5 Zahlen dann aber wie folgt sortiert werden.
Spalte A soll nur Zahlen von 1 bis 9, Spalte B nur Zahlen von 10 bis 19, Spalte C nur Zahlen von 20 bis 29, bis zu Spalte I, die die Zahlen von 80 bis 90 enthält.
Das macht 9 Spalten bei 5 Zahlen.
4 Spalten bleiben beim Sortieren dann leer.
Ist so etwas auf vernünftige weise lösbar.
Und gibt es auch die Möglichkeit über eine Inputbox festzulegen wie oft 3 Zeilen angelegt werden? (zB. 10 mal 3 Zeilen mit Zufallszahlen aus 90 mit einer Leerzeile dazwischen)
Bitte um eure Hilfe!