Zufallszahlen generieren

Forumthread: Zufallszahlen generieren

16.03.2004 10:03:58

Uli Zasada

Hallo zusammen
ich brauche dringend sehr viele zufällige 7 stellige Zahlen hab gehört es geht mit VBA.

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zufallszahlen generieren

16.03.2004 10:06:20

Hans W. Herber
AW: Zufallszahlen generieren

16.03.2004 10:14:51

Uli Zasada
AW: Zufallszahlen generieren

16.03.2004 11:48:27

Martin Blaha

AW: Zufallszahlen generieren

16.03.2004 10:06:20

Hans W. Herber

Hallo Uli,
es geht sowohl mit Excel wie auch mit VBA. Nachfolgend ein Code, der die Sache für eine Zellauswahl automatisiert:


Sub mnuRandomize()
Dim vNumS As Variant, vNumE As Variant
Dim rng As Range
Randomize
vNumS = Application.InputBox("Startzahl:", "Zufallszahlen", 1, , , , 1)
If vNumS = False Then GoTo ERRORHANDLER
vNumE = Application.InputBox("Endzahl:", "Zufallszahlen", 1000, , , , 1)
If vNumE = False Then GoTo ERRORHANDLER
On Error GoTo ERRORHANDLER
For Each rng In Selection.Cells
rng.Value = Int((vNumE * Rnd) + vNumS)
Next rng
ERRORHANDLER:
End Sub

Gruss hans

AW: Zufallszahlen generieren

16.03.2004 10:14:51

Uli Zasada

Wie muss ich das anstellen Hans

AW: Zufallszahlen generieren

16.03.2004 11:48:27

Martin Blaha

Hallo Uli,
mit dieser Formel kannst Du Zufallszahlen im 7-stelligen Bereich generieren.
Kopiere diese Formel in der Spalte sooft du sie brauchst.
=Runden(Zufallszahl()*10000000;0)
ACHTUNG! Bei jeder Aktualisierung ändern sich die Zufallszahlen. Für eine Fixierung einfach kopieren und Bearbeiten - Inhalte einfügen - Werte einfügen.
Grüsse aus Wien
Martin

Forumthread: Zufallszahlen generieren

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread