Nullen beim Zahlengenerator verbieten???

[Mike4711]

Hallo liebe Excel Freunde,

ich habe eine kleine Mappe, in der sollen in 10 Zellen Zufallszahlen generiert werden.
Soweit habe ich das Makro dafür auch schon fertig, möchte aber in diesem irgendwie dem Makri auch sagen, das er keine Null generieren soll.

Zahlen werden in den 10 Zellen wischen 1 und 49 generiert.  :)

Weiß jemand, wie ich das in dem Makro angebenm kann...also keine Nullauswerfen, sondern immer eine Zahl?
Undf es sollen keien doppelten Zahlen auftauchen!

Freue mich auf Hilfe von euch.

Grüße Mike


  Generate.xlsm (Größe: 32,83 KB / Downloads: 5)

[Peter]

Hallo,

ungetestet:

Code:

Sub Zahlen_generieren()
Dim Bereich As Range
Dim zelle As Range

  Set Bereich = Range("A4:J4")

  For Each zelle In Bereich
    zelle.Value = Int((49 * Rnd) + 1)
  Next zelle

End Sub

[BoskoBiati]

Hallo,

Gott sei Dank kann jeder von Neuem anfangen. Man muß ja nichts Vorhandenes nutzen:

http://www.clever-excel-forum.de/thread-1608.html

[Mike4711]

Danke Peter,

hab noch vergessen, das dort keine doppelten Zaheln auftauchen dürfen.
Ich probier mal deinen code erst aus.

Grüße Mike

[Mike4711]

Hallo,

Gott sei Dank kann jeder von Neuem anfangen. Man muß ja nichts Vorhandenes nutzen:

http://www.clever-excel-forum.de/thread-1608.html

Habe ich leider nicht gewusst.....hätte ich aber auf jeden Fall ausprobiert.

Danke für den Link  ;)