Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zufallszahl

Zufallszahl
30.11.2003 16:54:19
Max M.
Hallo Excelfreunde,

habe hier ein Makro das mir in der ersten Zelle eine Zufallszahl zwischen 1 und 6 einfügt.
Was muss ich bei diesen Makro ändern, dass auch einmal eine 0 dabei sein kann?


Sub Zufallszahl1()
Dim zahlen(6) As Integer
For i = 1 To 1
nochmal:
zahl = Int(6 * Rnd()) + 1
For c = 1 To 1
If zahl = zahlen(c) Then GoTo nochmal
Next c
zahlen(i) = zahl
Next i
For i = 1 To 1
Cells(i, 1) = zahlen(i)
Next i
End Sub


Max M.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zufallszahl
30.11.2003 16:59:19
Ramses
Hallo

ungetestet, sollte es aber sein.
Ändere die Zeile

zahl = Int(6 * Rnd()) + 1

in

zahl = Int(6 * Rnd())

Gruss Rainer
AW: Zufallszahl
30.11.2003 17:04:51
Max M.
Hallo Reiner,

vielen Dank für Deine Antwort.
Habe das auch schon probiert, leider keine 0 dabei.

Gruss Max.
AW: Zufallszahl
30.11.2003 17:09:34
Reinhard
Hi Max,


Sub Zufallszahl1()
For i = 1 To 20
zahl = Int(7 * Rnd())
Cells(i, 1) = zahl
Next i
End Sub


Gruß
Reinhard
AW: Zufallszahl
30.11.2003 17:13:30
Max M.
Hallo Reinhard,

vielen Dank für Deine Hilfe, es funktioniert.

Gruss Max.
Danke für die Rückmeldung. o.w.T.
30.11.2003 21:28:53
Reinhard
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige