Office: Zellen zufällig mit Begriffen aus einer Liste füllen

Hallo zusammen,

ich möchte eine Spalte mit 25 Zeilen zufällig mit Begriffen aus einer Liste mit 10 Einträgen befüllen (somit Mehrfachnennungen zulässig). Wie muss ich vorgehen? Vielen Dank und Gruß
Joghivan

:)

 

Moin, Joghivan,

unter AddIns die Analyse-Funktionen aktivieren:

Â	A	B
1	Januar	August
2	Februar	Januar
3	März	Mai
4	April	August
5	Mai	September
6	Juni	Juni
7	Juli	März
8	August	Mai
9	September	Juli
10	Oktober	März
11	Â	März
12	Â	August
13	Â	April
14	Â	Februar
15	Â	Januar
16	Â	Oktober
17	Â	Juni
18	Â	Mai
19	Â	Juli
20	Â	April
21	Â	Januar
22	Â	Juni
23	Â	Juli
24	Â	September
25	Â	Februar

B1 : =INDIREKT("A"&ZUFALLSBEREICH(1;10))
B2 : =INDIREKT("A"&ZUFALLSBEREICH(1;10))
B3 : =INDIREKT("A"&ZUFALLSBEREICH(1;10))
B4 : =INDIREKT("A"&ZUFALLSBEREICH(1;10))
B5 : =INDIREKT("A"&ZUFALLSBEREICH(1;10))
B6 : =INDIREKT("A"&ZUFALLSBEREICH(1;10))
B7 : =INDIREKT("A"&ZUFALLSBEREICH(1;10))
B8 : =INDIREKT("A"&ZUFALLSBEREICH(1;10))
B9 : =INDIREKT("A"&ZUFALLSBEREICH(1;10))
B10 : =INDIREKT("A"&ZUFALLSBEREICH(1;10))
B11 : =INDIREKT("A"&ZUFALLSBEREICH(1;10))
B12 : =INDIREKT("A"&ZUFALLSBEREICH(1;10))
B13 : =INDIREKT("A"&ZUFALLSBEREICH(1;10))
B14 : =INDIREKT("A"&ZUFALLSBEREICH(1;10))
B15 : =INDIREKT("A"&ZUFALLSBEREICH(1;10))
B16 : =INDIREKT("A"&ZUFALLSBEREICH(1;10))
B17 : =INDIREKT("A"&ZUFALLSBEREICH(1;10))
B18 : =INDIREKT("A"&ZUFALLSBEREICH(1;10))
B19 : =INDIREKT("A"&ZUFALLSBEREICH(1;10))
B20 : =INDIREKT("A"&ZUFALLSBEREICH(1;10))
B21 : =INDIREKT("A"&ZUFALLSBEREICH(1;10))
B22 : =INDIREKT("A"&ZUFALLSBEREICH(1;10))
B23 : =INDIREKT("A"&ZUFALLSBEREICH(1;10))
B24 : =INDIREKT("A"&ZUFALLSBEREICH(1;10))
B25 : =INDIREKT("A"&ZUFALLSBEREICH(1;10))

Oder Zufallszahlen analog zu Ganzzahlige Zufallszahlen ermitteln...

 

hiho

oder ohne analyse

=INDEX(E:E;KÃœRZEN(ZUFALLSZAHL()*10+1))

in E1:E10 stehen die Einträge

nur bei dieser Variante wird bei F9 und beim Öffnen/Schließen jedesmal neu gewürfelt
soll das so sein?

wenn nicht spalte markieren ->kopieren ->inhalte einfügen -> werte

 

Das klappt, besten Dank. Dennoch benötige ich ein VBA-Makro, sodass die Zellen nach Durchführung einer neuen Berechnung nicht wieder geändert werden.

 

Moin, Joghivan,

analog zu Namen nach dem Zufallsprinzip auswählen und eintragen vorgehen.

 

Hallo Joghivan

Code:

in E1:E10 stehen wieder die Einträge
Ergebnis in A1:A25

steht etwas in A1 läuft das makro leer aus.

 

Jetzt passt's. Besten Dank!

 

Hallo zusammen,

jetzt habe ich die zusätzliche Anforderung, dass ich nicht nur eine Zelle sondern eine ganze Zeile auswählen möchte.

Code:

Dieser Code erfüllt dies zunächst, allerdings werden alle Spalteneinträge zufällig durcheinander gewürfelt. Die Werte in einer zufällig ausgewählten Zeile sollten zusammenhängend bleiben. Allerdings soll auch nicht die komplette Zeile, sondern nur die Einträge bis zu einer gewissen Spalte ausgewählt werden.

Danke und Gruß
Joghivan

 

Moin, Joghivan,

125 Werte in 25 reservierte Plätze einfügen kann schon von der Logik her nicht so wirklich klappen...

Code:

 

Okay, das habe ich nur falsch übertragen...das ist nicht das Problem. Sonst jemand eine Idee?

 

Moin, Joghivan,

Hm - Copy&Paste nutzen...

Zur Ermittlung der Zeile diesen Vorgang in der erste Schleife in eine Variable packen und Dich in der zweiten dann auf die Zeilenzahl beziehen statt immer neu zu "mischen"...

 

Passt, vielen Dank!