|
Liebe VBA-Experten,
ich komme nicht ganz weiter bzw. "ich stehe auf dem Schlauch" :-)
Siehe Code unten:
Es werden 10 sich nicht wiederholende Zufallszahlen aus einem Zahlenbereich gezogen, dessen Obergrenze in der Zelle "H3" bestimmt wurde. So weit, so gut.
Ich möchte nun dahergehen und die Obergrenze variabel gestalten. Soll heißen, in der z. B. Zelle "H4" wird die Anzahl der Ziehungen definiert.
Nach meinem Verständnis müsste dan im Code die Zahl "10" durch eine Variable, also den Inhalt der Zelle "H4", ausgetauscht werden. Ich bekomme es aber zu meiner Schande nicht hin. Kann mir von Euch jemand helfen?
Vorab schon mal herzlichen Dank!
Option Explicit
Private Sub Zufallszahl()
Dim intZahl(1 To 10) As Integer
Dim intZaehler As Integer
Dim intalteZahlen As Integer
'10 Zufallszahlen erzeugen:
For intZaehler = 1 To 10
intZahl(intZaehler) = Int(Range("H3").Value * Rnd + 1)
Cells(intZaehler, "B") = intZahl(intZaehler)
'wenn die Zahl schon mal gezogen wurde:
For intalteZahlen = 2 To intZaehler - 1
If intZahl(intZaehler) = intZahl(intalteZahlen) Then
MsgBox intZahl(intZaehler) & " wurde schon gezogen!"
intZaehler = intZaehler - 1
Exit For
End If
Next intalteZahlen
Next intZaehler
End Sub
|