Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

makro für zufallszahlen

Forumthread: makro für zufallszahlen

makro für zufallszahlen
26.12.2003 16:28:27
Jürgen
Hallo Freaks

Frohe weihnachten erstmal.

Suche ein Makro für zufallszahlen.

das ganze soll in einem tabellenblatt per buttomclick erfolgen in den zellen e8-e16 und g8-g16. Die zahlen sollen zwischen 1 und 4 liegen.

danke

Jürgen
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: makro für zufallszahlen
26.12.2003 16:39:16
Nepumuk
Hallo Jürgen,
so geht's:

Option Explicit
Public Sub zufall()
Dim intZeile As Integer
Randomize Timer
For intZeile = 8 To 16
Cells(intZeile, 5) = Int((4 * Rnd) + 1)
Cells(intZeile, 7) = Int((4 * Rnd) + 1)
Next
End Sub


Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk
Anzeige
AW: makro für zufallszahlen
27.12.2003 18:07:31
Jürgen
Dank dir Nepomuk

Brauche noch ein Zusatz in dem Makro.
Zusätzlich soll noch ein X per zufall in einer der zellen zwischen D8 und d16 gesetzt werden.

gruss jürgen
AW: makro für zufallszahlen
27.12.2003 18:26:56
Nepumuk
Hallo Jürgen,
nach der Anweisung "Next" folgende Zeile:

Cells(Int((9 * Rnd) + 8), 4) = "X"

Gruß
Nepumuk
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige