Auslosung mit Excel durchführen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Werbung: CD/DVD Bedrucken Pressen Kopieren Hüllen

Auslosung mit Excel durchführen

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

Sillbog
Office-Hilfe.com-Neuling

Anmeldedatum: 02.07.2009
Beiträge: 1

Verfasst am: 02.07.2009, 10:26

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.

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 7287

Verfasst am: 02.07.2009, 21:16

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

_________________

Viele Grüße vom Schatzi
------------------------
Dir wurde geholfen? Dann gib doch bitte ein Feedback! Du hilfst damit automatisch anderen Usern, die ein ähnliches Problem haben!

Ich arbeite mit: Excel 2010 beta, Windows Vista
Ein Tool, um Tabellen(ausschnitte) in diesem Forum posten zu können, findet ihr z.B. hier.

Exl121150
Office-Hilfe.com-Profi

Anmeldedatum: 24.11.2008
Beiträge: 913

Verfasst am: 04.07.2009, 15:16

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

_________________
Liebe Grüße
Exl121150

Win XP Professional SP3
Office 2007 Professional SP2

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Mailinhalt in eine Excel-Tabelle ver...	hawis	Microsoft Outlook Hilfe	1	01.09.2010, 08:19
	excel 2007 sverweis basierend auf meh...	addictiveuk	Microsoft Excel Hilfe	2	26.08.2010, 12:30
	Termine von Excel nach Outlook import...	RoK103	Microsoft Excel Hilfe	1	23.08.2010, 14:46
	[Excel 2000] Tabelle auswerten	Todeskuh	Microsoft Excel Hilfe	3	23.08.2010, 02:06
	Drucken aus einer Excel-Tabelle (Date...	mani88	Microsoft Excel Hilfe	2	22.08.2010, 17:06

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Haftungsausschluss/Disclaimer

SMS kostenlos versenden | Tuning Forum | krankenversicherungsvergleich | Wii Modchip Xbox 360 Konsole

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de