Automatische sortierung der Tische

[Rabe79]

Hi

kann man auch direkt alle vier runden anzeigen lassen ?
Und wenn es geht nur den Vor und Nachnamen. 

Gruss
Stefan

[Gast 123]

Hi  Rabe,

anbei eine Druckliste die ich auf die Schnelle erstellt habe, damit man das Ergebnis meines
Zufallsgenerator auch mit echten Namen sehen kann. Diese Druckliste wurde so eingestellt
das man mit dem eingestellten Bereich direkt 4 Blatter für die Runden 1-4 ausdrucken kann.
Ich denke das wir jetzt vorab mal ein einigermassen gutes Ergebnis haben.

In meiner Tabelle "Auswertung" kann man an den gelb markierten Zellen die doppelten sehen.
D.h. da sieht man zwei Teilnehmer aus dem -gleichen Team-. Das sollte möglichst nicht sein!!

Mir waere lieb die Druckliste in die Beispieldatei zu kopieren und schauen ob das ganze soweit
lauft. Das Zufall Makro um die Matrix Auswertung zu verbessern kann man immer nachschieben.
Da brauche ich auch keine Beispieldatei mehr, da kann man das Makro als "Text" senden und im
Modulblatt einfach nur das Makro austauschen. 

An der Matrix Auswertung arbeite ich noch, bin aber z.Zeit mit Behjördengaengen beschaeftigt.
Schau mal wie weit ich komme und melde mich wieder.  An der Matrix bleibe ich noch dran.
Hatte aber heute morgen keine Zeit daran weiter zu arbeiten. Da muss ich zwischendurch auch
mal ausruhen und Pause machen. Ob man das ans laufen bekommt interessiert mich selbst ??

mfg  Gast 123

[Fennek]

Hallo,

ich habe mit Interesse, aber ohne die xlsm-Dateien zu öffnen, die Beiträge gelesen und versuche mal einen Beitrag.

Die Idee ist eine einfache Rotation. Der Code ist sehr einfach und erfordert nur, dass die Teilnehmer nach den Gruppen sortiert sind.

Der Code ist schlecht getestet.

Code:

Sub Tische()
R = 0
S = 0
For Z = 2 To 17 Step 5
   For i = 2 To 77
       If R = 19 Then
           R = 0
           S = S + 1
       End If
       Range("F2").Offset(R, S) = Cells(Z, "B")
       R = R + 1
       Z = Z + 1
       Z = IIf(Z > 77, 2, Z)
   Next i
Next Z
End Sub

Die passende Datei ist im xlsx-Format (kein Virenrisiko) beigefügt. Ich freue mich auf die Diskussion.

mfg

[BoskoBiati]

Hallo,

hier mal meine endgültige Version.


  Tische.xlsm (Größe: 21,93 KB / Downloads: 4)

Hallo Fennek,

:s :92:
mit Zufall hat das allerdings nichts zu tun! Ich würde das unter der Rubrik "Thema verfehlt" einordnen. Dieser Algorithmus bewirkt doch nur eine Verschiebung der Gruppen von Tisch zu Tisch! :16:

[html]

Arbeitsblatt mit dem Namen 'Tabelle1'
	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U
1	Tisch	Runde1				Runde2				Runde3				Runde4
2	1	1	20	39	58	6	25	44	63	11	30	49	68	16	35	54	73
3	2	2	21	40	59	7	26	45	64	12	31	50	69	17	36	55	74
4	3	3	22	41	60	8	27	46	65	13	32	51	70	18	37	56	75
5	4	4	23	42	61	9	28	47	66	14	33	52	71	19	38	57	76
6	5	5	24	43	62	10	29	48	67	15	34	53	72	20	39	58	1
7	6	6	25	44	63	11	30	49	68	16	35	54	73	21	40	59	2
8	7	7	26	45	64	12	31	50	69	17	36	55	74	22	41	60	3
9	8	8	27	46	65	13	32	51	70	18	37	56	75	23	42	61	4
10	9	9	28	47	66	14	33	52	71	19	38	57	76	24	43	62	5
11	10	10	29	48	67	15	34	53	72	20	39	58	1	25	44	63	6
12	11	11	30	49	68	16	35	54	73	21	40	59	2	26	45	64	7
13	12	12	31	50	69	17	36	55	74	22	41	60	3	27	46	65	8
14	13	13	32	51	70	18	37	56	75	23	42	61	4	28	47	66	9
15	14	14	33	52	71	19	38	57	76	24	43	62	5	29	48	67	10
16	15	15	34	53	72	20	39	58	1	25	44	63	6	30	49	68	11
17	16	16	35	54	73	21	40	59	2	26	45	64	7	31	50	69	12
18	17	17	36	55	74	22	41	60	3	27	46	65	8	32	51	70	13
19	18	18	37	56	75	23	42	61	4	28	47	66	9	33	52	71	14
20	19	19	38	57	76	24	43	62	5	29	48	67	10	34	53	72	15

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

[/html]

[Rabe79]

Hallo Gast,

drucken möchte ich eigentlich nix.
ich möchte alles in einer Datei haben so wie in der Ausgangsdatei von mir. Unter Vorgaben werde ich die Teilnehmenden Teams eingeben, diese werden dann in der Tischbelegung übernommen und sollen automatisch oder per Knopfdruck gemischt / sortiert werden mit den Kriterien : keine doppelte Spieler in einer Runde und kein gleiches Team an einem tisch. Es sollten dann die vier Ruden mit Tische untereinander oder nebeneinander sichtbar sein.  Jeweils mit einen Button zum mischen.
Die vier Runden werden dann in die Ausgabe Tischbelegung für PP ( Powerpoint ) übernommen. 
Diese binde ich dann in PP ein und werfe sie über ein Beamer an die Wand.

Gruss
Rabe

[Rabe79]

Hi Edgar,

das sind schon fast 100% ))))
In Runde vier wird ganz unten eine reihe nicht ausfühlt. Es fehlt ein Spieler.
Ich sehe jetzt das immer unterschiedlich Spieler fehlen ? was kann das sein ?

Man wird ja gefragt wieviel Mannschaft ( Klasse )
Kann ich das auch beliebig erweitern ? Es können max 32 Teams Teilnehmen. 


Gruß
Stefan

[BoskoBiati]

Hallo,

das Phänomen mit dem fehlenden Spieler hatte ich auch schon. Das rührt daher, dass ich eine Laufzeitbegrenzung drin habe, die abbricht, wenn eine bestimmte Anzahl von Schleifendurchläufen erfolgt ist. Erweitern kannst Du das ruhig, es dauert halt länger.

[Rabe79]

Hi

das bedeutet das immer ein spieler fehlt ?
Das bekommt man nicht in den griff ?

Muss ich das im Makro erweitern oder wie mache ich das

[BoskoBiati]

Hallo,

ich habe es mal korrigiert:


  Tische.xlsm (Größe: 22,59 KB / Downloads: 1)

[Rabe79]

Hi

so jetzt macht er auch mehr tische ! super danke dir

allerdings fehlen jetzt sogar tische wenn ich auf 32 gehe und nicht nur spieler. kannst du hier die begrenzung hochsetzen ? oder bringt das nix ?
Wenn es ein wenig rechnet ist das halt so
Hauptsache alle Spieler und Tische sind da