Office: Auslosung mit Excel durchführen

Hallo zusammen,
ich habe eine Vorlage welche aber ein bisschen abgeändert werden müsste.
http://www.herber.de/bbs/user/48745.xls

Mit Alt+F11 kann man sich den VBA-Code ja ansehen, nur leider verstehe ich von da an nur noch Bahnhof.

Ich habe eine Setzliste mit bis zu 16 Personen die dann entweder in 2 4er Gruppen,2 5er Gruppen, 2 6er Gruppen,2 8er Gruppen, 3 3er Gruppen, 3 4er Gruppen, 3 5er Gruppen, 4 3er Gruppen oder eben 4 4er Gruppen aufgeteilt werden sollen - je nach Teilnehmerzahl und dem Modus der in dem Jahr gespielt werden soll.
Die Wahrscheinlichsten Varianten sind aber 2 4er Gruppen, 2 5er Gruppen, 2 6er Gruppen und 4 3er Gruppen und 4 4er Gruppen.

In meinem Beispiel habe ich jetzt eine Setzliste mit bis zu 18 Teilnehmern und habe 2 Gruppen erstmal nur dargestellt zur Erläuterung...das Ganze ist aber nur ein Beispiel...
http://www.herber.de/bbs/user/62866.xls

Die Auslosung sollte schon wie in der anderen Vorlage ablaufen, nur dass eben nur der erste Teilnehmer in der Setzliste in Gruppe A gesetzt ist. Die anderen sollen dann abwechselnd den Gruppen zugelost werden... (je nach Gruppenanzahl halt auf 2,3 oder 4 Gruppen verteilt.)

Da ich wirklich absolut nur Bahnhof verstehe wäre es super nett wenn jemand den Code so umschreiben könnte, dass es passt.

Vielen Dank schon einmal im vorraus.

Gruß Mario

PS: Da der Upload der Files nicht funktioniert musste ich die Excel-Sheets woanders hochladen damit Sie die Beispiele sehen können.

 

Hallo!

In deinem Blatt sind mir viel zu viele verbundene Zellen! Diese sind absolut TÖDLICH für eine vernünftige Auswertung, gerade im VBA-Bereich!
Daher mein Vorschlag:
Trage in einem jungfräulichen Blatt die Spielernamen ab A1 abwärts auf.
Kopiere diesen Code in das Modul des Blatts, lasse ihn laufen und ab Spalte F werden dir spaltenweise die Gruppen generiert:

Code:

Sub Auslosung()
    Dim Arr, i As Long, tmp, z As Long, Gr As Integer
    Arr = Range("A1").CurrentRegion
    Randomize
    For i = 1 To UBound(Arr)
        z = Int(UBound(Arr) * Rnd) + 1
        tmp = Arr(z, 1)
        Arr(z, 1) = Arr(i, 1)
        Arr(i, 1) = tmp
    Next
    Gr = InputBox("Wieviele Gruppen?")
    Range("F2").CurrentRegion.ClearContents
    For i = 1 To UBound(Arr)
        Cells(2 + Int((i - 1) / Gr), ((i - 1) Mod Gr) + 6) = Arr(i, 1)
    Next
End Sub

Das Ergebnis (bei drei Gruppen) könnte so aussehen:

	A	B	C	D	E	F	G	H
1	Spieler1
2	Spieler2					Spieler12	Spieler9	Spieler1
3	Spieler3					Spieler11	Spieler10	Spieler4
4	Spieler4					Spieler2	Spieler3	Spieler8
5	Spieler5					Spieler14	Spieler5	Spieler7
6	Spieler6					Spieler13	Spieler6
7	Spieler7
8	Spieler8
9	Spieler9
10	Spieler10
11	Spieler11
12	Spieler12
13	Spieler13
14	Spieler14
15

 

Hallo,

ich habe Dir, ausgehend von Deiner Vorlage, zwei dazu passende Makros geschrieben.
1) Es können 2 bis 4 Gruppen mit den vorhandenen Teilnehmern ausgelost werden.
2) Die Überschriften (fett) innerhalb der umrandeten Bereiche sollten so belassen werden, wie sie sind.
Werden sie geändert, müssen sie im Makro entsprechend angepasst werden (die Konstanten am Anfang des Makromoduls):

Code:

Option Explicit
Const Größen$ = "Dimensionen"
Const SpielerKopf$ = "Teilnehmer"
Const GruppenKopf1$ = "Gruppe A", GruppenKopf2$ = "Gruppe B"
Const GruppenKopf3$ = "Gruppe C", GruppenKopf4$ = "Gruppe D"

Sie dienen im Makro dazu, die dazugehörigen Datenbereichen zu finden.
3) Die 2 Dimensionsangaben und die Teilnehmer müssen festgelegt sein, bevor auf den 'Auslosen'-Schalter geklickt wird.
4) Um den Ausgangszustand wiederherzustellen, auf den 'Zurücksetzen'-Schalter klicken.
5) Sind irgendwelche unerlaubten Konstellationen vorhanden, wenn auf den Schalter 'Auslosen' geklickt wird, wird das Makro in der Regel kommentarlos beendet.

Hier der Link auf die Datei:
http://www.file-upload.net/download-1742201/Sillbog_62866.xls.html