Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Zufallszahl ohne Duplikate

874 views
Skip to first unread message

Hans-Joachim Eßer

unread,
Nov 21, 2000, 3:00:00 AM11/21/00
to
Hallo,

hat jemand eine Idee, wie man in Ecxel 97 die Zahlen von z.B. 1 bis 10
in 10 Zellen über Zufallsgenerator so anzeigen lassen kann, dass sie
nicht doppelt vorkommen??

Danke im Voraus


Hauke Konrad

unread,
Nov 21, 2000, 3:00:00 AM11/21/00
to
Hans-Joachim Eßer,

hier ein Ansatz die Prozedure kannst Du wie folgt aufrufen:

Call UniqueZufall(Range( "A1:A10")

'--------------------------------------------------
Public Sub UniqueZufall(r As Range)
Dim lWert As Long
Dim c As Range

Randomize

For Each c In r
Do
lWert = Int((r.Cells.Count * Rnd) + 1)
Loop Until r.Find(What:=lWert, _
LookIn:=xlFormulas, _
LookAt:=xlWhole) Is Nothing
c.Value = lWert
Next c
End Sub
'--------------------------------------------------


--
und tschüss...
Konrad Hauke

----------------------------------------
----------------------------------------
----------------------------------------
vistit my homepage: http://www.xakte.de
----------------------------------------
----------------------------------------
----------------------------------------
"Hans-Joachim Eßer" <papa...@wtal.de> schrieb im Newsbeitrag
news:3A1ABF81...@wtal.de...

Frank Arendt-Theilen

unread,
Nov 21, 2000, 3:00:00 AM11/21/00
to
Hallo Hans-Joachim,
wie folgt:

Sub KeineZufallszahlDublikate()
Dim intI As Integer, Zahl As Integer
Dim ZahlArray(10) As Boolean
Dim NoDups As New Collection
Dim Item As Variant
Randomize
For intI = 1 To 10
Do
Zahl = Int((10 * Rnd) + 1)
Loop Until ZahlArray(Zahl) = False
ZahlArray(Zahl) = True
NoDups.Add Zahl
Next
Sheets.Add Before:=Sheets(1)
For Each Item In NoDups
ActiveCell.Value = Item
ActiveCell.Offset(1, 0).Select
Next
End Sub

MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
E-Mail: Thei...@t-online.de


Am Tue, 21 Nov 2000 19:31:29 +0100, schrieb Hans-Joachim Eßer
<papa...@wtal.de> in microsoft.public.de.excel zu "Zufallszahl ohne
Duplikate":

henner juengst

unread,
Nov 22, 2000, 12:51:21 AM11/22/00
to
Hans-Joachim =?iso-8859-1?Q?E=DFer?= <papa...@wtal.de> wrote:

>Hallo,
>
>hat jemand eine Idee, wie man in Ecxel 97 die Zahlen von z.B. 1 bis 10
>in 10 Zellen über Zufallsgenerator so anzeigen lassen kann, dass sie
>nicht doppelt vorkommen??

Hallo Hans-Joachim,

in Spalte A 10 Zufallszahlen untereinander,
in Spalte B 1-10 untereinander,
beide Spalten markieren und nach Spalte A sortieren

Pfüati
Henner

Peter Dorigo

unread,
Nov 22, 2000, 3:00:00 AM11/22/00
to
Hallo Hans-Joachim

in A1: =ZUFALLSZAHL()
in B1: =RANG(A1;$A$1:$A$10)

beide Formeln bis Zeile 10 kopieren

mfgPeter


Hans-Joachim Eßer <papa...@wtal.de> schrieb in im Newsbeitrag:
3A1ABF81...@wtal.de...


> Hallo,
>
> hat jemand eine Idee, wie man in Ecxel 97 die Zahlen von z.B. 1 bis 10
> in 10 Zellen über Zufallsgenerator so anzeigen lassen kann, dass sie
> nicht doppelt vorkommen??
>

> Danke im Voraus
>

Frank Arendt-Theilen

unread,
Nov 22, 2000, 3:00:00 AM11/22/00
to
Hallo Peter,
tolle Lösung!

MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
E-Mail: Thei...@t-online.de


Am Wed, 22 Nov 2000 10:01:49 +0100, schrieb "Peter Dorigo"
<pe...@swissonline.ch> in microsoft.public.de.excel zu "Re:
Zufallszahl ohne Duplikate":

Peter Dorigo

unread,
Nov 22, 2000, 3:00:00 AM11/22/00
to
Hallo Frank

Danke :-))

Frank Arendt-Theilen <Thei...@t-online.de> schrieb in im Newsbeitrag:
b17n1tg9ue2ao4di0...@4ax.com...

Lars Meyer

unread,
Nov 22, 2000, 3:00:00 AM11/22/00
to
geniale Lösung, wie kommt man auf sowas?

Lars

Peter Dorigo

unread,
Nov 22, 2000, 3:00:00 AM11/22/00
to

Lars Meyer <ff...@gmx.de> schrieb in im Newsbeitrag:
u0td3HJVAHA.243@cppssbbsa04...

> geniale Lösung, wie kommt man auf sowas?

Eingebung ?!? ;-)

mfg Peter


Hans-Joachim Eßer

unread,
Nov 22, 2000, 3:00:00 AM11/22/00
to
Bin wegen der zahlreichen Antworten überrascht und werde alle Lösungen mal
ausprobieren.

Nochmals "Danke"


>


Hauke Konrad

unread,
Nov 25, 2000, 3:00:00 AM11/25/00
to

Hallo Peter Dorigo,

mir fehlen die Worte genial einfach oder einfach genial?
Egal ist ne super Lösung.


--
und tschüss...
Konrad Hauke

----------------------------------------
----------------------------------------
----------------------------------------
vistit my homepage: http://www.xakte.de
----------------------------------------
----------------------------------------
----------------------------------------

"Peter Dorigo" <pe...@swissonline.ch> schrieb im Newsbeitrag
news:#qiQHdGVAHA.248@cppssbbsa03...

evi...@hotmail.de

unread,
Jun 28, 2018, 5:46:12 AM6/28/18
to
Am Mittwoch, 22. November 2000 09:00:00 UTC+1 schrieb Peter Dorigo:
> Hallo Hans-Joachim
>
> in A1: =ZUFALLSZAHL()
> in B1: =RANG(A1;$A$1:$A$10)
>
> beide Formeln bis Zeile 10 kopieren
>
> mfgPeter
>
>
> Hans-Joachim Eßer <papa...@wtal.de> schrieb in im Newsbeitrag:
> 3A1ABF81...@wtal.de...
> > Hallo,
> >
> > hat jemand eine Idee, wie man in Ecxel 97 die Zahlen von z.B. 1 bis 10
> > in 10 Zellen über Zufallsgenerator so anzeigen lassen kann, dass sie
> > nicht doppelt vorkommen??
> >
> > Danke im Voraus
> >

Hallo Peter

wie mache ich das denn, wenn ich aus den Zahlen 1 bis 63 nur 20 zufällige ziehen will, ohne dass sich welche doppeln?

Danke schon mal und viele Grüße
Eva

Claus Busch

unread,
Jun 28, 2018, 5:52:39 AM6/28/18
to
Hallo Eva,

Am Thu, 28 Jun 2018 02:46:10 -0700 (PDT) schrieb evi...@hotmail.de:

> wie mache ich das denn, wenn ich aus den Zahlen 1 bis 63 nur 20 zufällige ziehen will, ohne dass sich welche doppeln?

schau mal hier:
http://www.excelformeln.de/formeln.html?welcher=177
http://www.excelformeln.de/formeln.html?welcher=152


Mit freundlichen Grüßen
Claus
--
Windows10
Office 2016
0 new messages