AW: Zufallszahlengenerierung in vorbestimmten Bereich
04.01.2006 22:56:36
Peter
Hallo,
daraus lässt sich was basteln.
Peter
Sub Zufall()
Dim Wert%, wieviele%, i%, n%
Dim s%, z!, Blatt$, w1%, w2%
s = 15 '1. Spalte
z = 3 'Zeile
Blatt = "Tab1" 'Blattname
w1 = 1 '1. Wert
w2 = 310 '2. Wert
'Frage, wieviele Zahlen generiert werden sollen
wieviele = InputBox("Wieviele Zahlen sollen erzeugt werden?", "Anzahl", 302)
If IsNumeric(wieviele) = False Then Exit Sub
If wieviele > w2 Then Exit Sub
'Sheets("Januar").Select
'alte Zahlen löschen
Range(Cells(z, s), Cells(320, s)).ClearContents
'Zahlen erzeugen
For i = 3 To wieviele
nochmal:
Wert = Int((w2 * Rnd) + w1)
'Kontrolle ob schon vorhanden
For n = 3 To i
If Cells(n, s) = Wert Then GoTo nochmal
Next
'Zahl eintragen
Cells(i, s) = Wert
Next
'Sortieren
'Range(Cells(z, s), Cells(z, s + wieviele)).Select
'Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
[A1].Select
End Sub