Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
860to864
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
860to864
860to864
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

860to864: VBA Zufallscounter

VBA Zufallscounter
13.04.2007 19:50:37
Peter
Hallo! Kann mir wer helfen?
Habe folgendes vor, bin aber leider unfähig, es in VBA umzusetzen:
User soll eine Zufallszahl beliebiger Länge eingeben in eine freie Zelle.
Excel soll in einer Schleife solange Zufallszahlen generieren, bis die erzeugte Zufallszahl mit der
vom User eingegebenen Zahl übereinstimmt. Dabei soll ein einfacher Counter die Versuche mitzählen - d.h. der Counter soll bei jeder Zufallszahl, die noch nicht der vorgegebenen Zahl entsprach, um 1 erhöht werden.
Kann mir jemand helfen?!
Vielen vielen Dank im voraus!

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Zufallscounter
13.04.2007 20:20:00
Jan
"...eine Zufallszahl beliebiger Länge..."
Kaum praktikabel, bis 6 Stellen gehts noch einigermaßen, darüber dauert es zu lange.
mfg jan

AW: VBA Zufallscounter
14.04.2007 04:47:11
Mustafa
Hallo Peter,
trotz das ich es genauso sehe wie Jan, hier mal ein Beispiel Code.

Sub zufall()
Dim Obergrenze, Untergrenze, X, Z
Obergrenze = Cells(1, 1) * 2
Untergrenze = 1
Z = 0
Do While X  Cells(1, 1)
X = Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
Z = Z + 1
Loop
Cells(2, 1) = Z
End Sub


In Zelle A1 die Zahl eingeben, ausgabe erfolgt in Zelle A2
Rückmeldung obs Hilft wäre nett.
Viele Grüße aus Köln.

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige