HILFE! wie kann ich zufallszahlen "einfrieren"?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Christina
Vielleicht hilft Dir ja dieses Beispiel weiter.

Sub Zufall()
    Dim Zufallszahl As Integer, Kontrolle As Boolean

        If Zeile < 22 Then
            Do Until Kontrolle = True
                Kontrolle = True
                Randomize
                Zufallszahl = Int((20 * Rnd) + 1)
                    For Each Value In Range("B2:B21")
                        If Value <> "" Then
                                If Value = Zufallszahl Then
                                    Kontrolle = False
                                    Exit For
                                End If
                            Else
                                Exit For
                        End If
                    Next
            Loop
            For Each Value In Range("B2:B21")
                If Value = "" Then
                    Range("B" & Zeile).Value = Zufallszahl
                    Zeile = Zeile + 1
                    Exit For
                End If
            Next
        End If

End Sub

Code eingefügt mit Syntaxhighlighter 2.5

Da Du ja angibst, Dich noch nicht so gut in Excel/VBA auszukennen, kannst Du hier die fertige Datei herunterladen und ausprobieren.
https://www.herber.de/bbs/user/4297.xls
Konnte ich Dir helfen?
Ciao
Thorsten

Wenn das ganze eine Übung ist, dann bin ich von einer falschen Aufgabenstellung ausgegangen.
Mit F9 wird in einer Zelle, z.B. A1, in der die Zufallszahl erzeugt werden soll, wird ein neuer Wert generiert, der in den Grenzen 1 und 20 liegt.
Wenn nun dieser Wert noch nicht mit einem zuvor erzeugten Wert (visuelle Prüfung oder programmtechnische Prüfung erforderlich?), der letzten Versuche übereinstimmt, dann soll dieser Wert in die Liste überrtagenwerden bis 20 Werte so zusammengetragen sind.
Das Kopieren ist Dir ja schon gelungen, nur mußt Du eben den markierten Bereich eben auf die Zelle beschränken, die den gültigen Wert liefert und als Zielzelle die Zelle markieren, an der der Wert stehen soll.
Habe ich Recht mit der Annahme, dass es sich hier um eine Art Hausaufgabe handelt, denn dann währe natürlich zu klären, wie weit die Aufgabe mit welchen Mitel gelöst werden muß, denn das Prüfen, ob eine Zufallszahl in der Menge der bisher gezogenen enthalten ist, erfordert weitere Aufwendungen, die mit Instrumenten zu erstellen sind, die möglicherweise gar nicht abgefordert werden.
Gruß!

Beliebteste Forumthreads (12 Monate)

HILFE! wie kann ich zufallszahlen "einfrieren"?

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

HILFE! wie kann ich zufallszahlen "einfrieren"?

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread