Zahlengenerator mit dezimalstelle und Bereich
17.09.2003 13:59:20
Abdi
habe im Archiv den u.s. Code gefunden. Funktioniert auch soweit. Aber wie schaffe ich es, dass ich Zufallszahlen bekomme, die 1. 3 Stellen nach dem Komma haben und 2. einen bestimmten Bereich z.B. von 1,234 bis 5,678 ??
Den bestimmten Bereich wollte ich durch eine inputbox vorgeben! geht dass denn?
Kann mir da jeman weiterhelfen??
Sub zufall()
Dim rng As Range, rngall As Range
Dim irandomize As Integer
Set rngall = Range("a1:f10")
Randomize
rngall.ClearContents
For Each rng In rngall.Cells
irandomize = Int((10 * Rnd) + 1)
rng.Value = irandomize
Next rng
End Sub
Anzeige