Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
356to360
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
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige