Office: (Office 2007) Zufallszahlen erzeugen ohne double

Moin Leute,

wie geht das:

ich brauche 64 Zufallszahelen in einem 4 * 16 Zellbereich. Jede zahl zwischen 1 und 64 muss vorkommen; keine darf doppelt vorkommen;

VBA oder Formel-Lösung hätte ich gern; schon mal vielen Dank und nen schönen Tag wünscht

Pittchen *Smilie

:)

 

Hi Pittchen,

hab ich für Dich aufgestöbert

Code:

Gruß

Thomas

 

Hallo, Thomas,

in dem Makro fehlt nach meinem Geschmack die Anweisung Randomize zu Beginn des Makros.

Vielleicht reicht aber ein Vorgehen nach Ganzzahlige Zufallszahlen ohne Wiederholung ziehen ohne VBA schon aus.

Gruß
LS

 

Hi Lumpensammler,

mit Zufallszahlen hab ich mich bis jetzt ehrlich gesagt noch nicht beschäftigt und mußte wegen Deiner Anregung erst mal in der OH nachlesen.

Du hast Recht, diese Ergänzung sollte vorgenommen werden

Gruß

Thomas

 

Hey Thomas,

vielen Dank für den Code; hat wunderbar funktioniert und hilft mir richtig weiter;

@Hi Lumpensammler,

dein VOrschlag kostet mich richtig Mühe, weil ich ne Stunde brauche, um die Wirkung aller Funktionen nachzuvollziehen *wink.gif* , der VB-Vorschlag ist mir lieber

PS*biggrin.gif*ank für den Randomize-Hinweis, ohne den gehts es natürlich nit

Danke euch beiden und allen, die sich mit meiner Frage beschäftigt haben

Schönen Tag und Gruß

*biggrin.gif* Pittchen

 

Grüezi Pittchen

Eine nette Formel-Lösung hätte ich auch noch :-)

Die Formeln einfach nach unten und rechts ziehen, dann klappt das schon:

	A	B	C	D	E	F	G
1	0.74078131	17		17	5	41	6
2	0.95031693	5		43	30	39	51
3	0.27387147	41		20	59	7	24
4	0.90298538	6		22	10	26	29
5	0.26278309	43		17	44	14	45
6	0.43072155	30		61	34	35	25
7	0.32765942	39		55	1	31	57
8	0.15449927	51		13	36	56	47
9	0.54870583	20		2	52	33	8
10	0.05128335	59		9	60	48	11
11	0.86511251	7		23	49	32	27
12	0.48124725	24		16	19	4	3
13	0.54053651	22		53	18	21	37
14	0.82041166	10		58	62	50	15
15	0.47421247	26		54	46	42	12
16	0.452042	29		63	40	28	38
17	0.71581731	17
18	0.25308592	44
19	0.76815037	14
20	0.21615188	45
21	0.0389153	61
22	0.39844621	34
23	0.35151864	35
24	0.47590837	25
25	0.1074008	55
26	0.99462572	1
27	0.43049447	31
28	0.097503	57
29	0.78832383	13
30	0.33966956	36
31	0.10609937	56
32	0.21319345	47
33	0.98421157	2
34	0.15316109	52
35	0.4064406	33
36	0.86443479	8
37	0.82535728	9
38	0.0452083	60
39	0.20207736	48
40	0.81308153	11
41	0.48508084	23
42	0.19022492	49
43	0.41027001	32
44	0.47312246	27
45	0.74701806	16
46	0.67566939	19
47	0.96036768	4
48	0.98227549	3
49	0.13893595	53
50	0.70128635	18
51	0.54456026	21
52	0.33762916	37
53	0.06728607	58
54	0.02779191	62
55	0.15564161	50
56	0.76753004	15
57	0.12381671	54
58	0.21525846	46
59	0.26469661	42
60	0.796743	12
61	0.0243449	63
62	0.30254094	40
63	0.46585055	28
64	0.32954868	38

A1 : =ZUFALLSZAHL()
B1 : =RANG(A:A;A:A)
D1 : =INDEX($B:$B;SPALTE(A1)+ZEILE(A1)*4-4)

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen

 

Hallo Thomas,

vielen Dank für deinen Vorschlag; werd' ich gleich mal testen

*Smilie Grüße und nen schönen Tag

Pittchen

Hallo Thomas, ist hübsch, hilft aber nicht, weil
a) die Null auch vorkommt und
b) Zahlen doppelt vorrkommen

Noch nen Gruß

Pittchen