Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1400to1404
1400to1404
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zufallsgenerator Fußballauslosung mehrere Gruppen

Forumthread: Zufallsgenerator Fußballauslosung mehrere Gruppen

Zufallsgenerator Fußballauslosung mehrere Gruppen
19.01.2015 09:51:09
Pascal
Hallo liebe Leute,
ich habe leider wirklich wenig Ahnung von Makros. Aufgrund der Suchfunktion habe ich schon eine Lösung zu meinem Porblem gefunden, jedoch ist das nicht genau das was ich suche.
Wir haben ein Fußballturnier und dafür werden Mannschaften ausgelost. Es gibt 5 Töpfe in denen die Spieler nach Mannschaft getrennt sich befinden. Jetzt sollen diese per Klick auf eine Schaltfläche per Zufall sortiert werden. Und zwar so, dass jeder Topf (topf1 in Spalte A; topf2 in Spalte B usw..) nacheinander abgearbeitet wird.
Es soll eigentlich so sein wie in diesem Beispiel, auch mit der Gruppenanzahl Auswahl, jedoch sollen bei mir nicht nur aus Spalte A sondern aus A bis einschließlich E die Personen per Zufall nacheinander aus ihren Töpfen den Mannschaften der Reihenfolge nach zugeordnet werden.

Die Datei https://www.herber.de/bbs/user/14676.xls wurde aus Datenschutzgründen gelöscht

Vielen Dank schonmal!

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zufallsgenerator Fußballauslosung mehrere Gruppen
19.01.2015 10:57:22
yummi
Hallo Pascal,
das kannst Du so machen:

Option Explicit
Sub ZufallsNamen()
Dim rng As Range
Dim var As Variant
Dim intRowAll As Integer, intCell As Integer, intCol As Integer, intCollall as Integer
Dim intRow As Integer, intAct As Integer, incolAct as Integer
Dim strName As String
Columns("F:IV").ClearContents
var = InputBox("Anzahl Gruppen:", , 3)
If var = "" Then Exit Sub
If Not IsNumeric(var) Then Exit Sub
For intCol = 1 To CInt(var)
Cells(7, intCol + 2) = "Gruppe" & CStr(intCol)
Next intCol
Randomize
intRowAll = Range("A1").CurrentRegion.Rows.Count
intColAll = Range("A1").CurrentRegion.Columns.Count
intRow = 3
intCol = 7
For intCell = 1 To intRowAll * intColAll
intAct = Int((intRowAll * Rnd) + 1)
intColAct = Int((intColAll * Rnd) + 1)
strName = Cells(intAct, intColAct).Value
Set rng = Range("G2").CurrentRegion.Find(strName, lookat:=xlWhole, LookIn:=xlValues)
Do While Not rng Is Nothing
strName = ""
Do while strName = ""
intAct = Int((intRowAll * Rnd) + 1)
intColAct = Int((intColAll * Rnd) + 1)
strName = Cells(intAct, intColAct).Value
loop
Set rng = Range("G2").CurrentRegion.Find(strName, lookat:=xlWhole, LookIn:=xlValues)
Loop
Cells(intRow, intCol) = strName
intCol = intCol + 1
If IsEmpty(Cells(2, intCol)) Then
intRow = intRow + 1
intCol = 7
End If
Next intCell
End Sub

Ist aber aufgrund der 3 Spalten und der dadurch vile größeren Anzahl an Möglichkeiten der Zufallszahlen
wesentlich langsamer.
Gruß
yummi

Anzeige
AW: Zufallsgenerator Fußballauslosung mehrere Gruppen
19.01.2015 11:19:18
Pascal
Vielen Dank schonmal. Aber leider kommt bei mir der Fehler "Variable nicht definiert" (er zeig das ganze nach dem ersten "next" bei "intColAll" an

AW: Zufallsgenerator Fußballauslosung mehrere Gruppen
19.01.2015 11:20:30
Pascal
Vielen Dank schonmal. Aber leider kommt bei mir der Fehler "Variable nicht definiert" (er zeig das ganze nach dem ersten "next" bei "intColAll" an

Anzeige
AW: Zufallsgenerator Fußballauslosung mehrere Gruppen
19.01.2015 11:30:59
yummi
Hallo Pascal,
war ein Tippfehler oben bei den Dim Zeilen (kommt davon, wenn man es nicht im Editor sondern freihand macht ;-)
so jetzt gehts (aber zu langsam)

Sub ZufallsNamen()
Dim rng As Range
Dim var As Variant
Dim intRowAll As Integer, intCell As Integer, intCol As Integer, intColAll As Integer
Dim intRow As Integer, intAct As Integer, intColAct As Integer
Dim strName As String
Columns("F:IV").ClearContents
var = InputBox("Anzahl Gruppen:", , 3)
If var = "" Then Exit Sub
If Not IsNumeric(var) Then Exit Sub
For intCol = 1 To CInt(var)
Cells(7, intCol + 2) = "Gruppe" & CStr(intCol)
Next intCol
Randomize
intRowAll = Range("A1").CurrentRegion.Rows.Count
intColAll = Range("A1").CurrentRegion.Columns.Count
intRow = 3
intCol = 7
For intCell = 1 To intRowAll * intColAll
intAct = Int((intRowAll * Rnd) + 1)
intColAct = Int((intColAll * Rnd) + 1)
strName = Cells(intAct, intColAct).Value
Set rng = Range("G2").CurrentRegion.Find(strName, lookat:=xlWhole, LookIn:=xlValues)
Do While Not rng Is Nothing
strName = ""
Do While strName = ""
intAct = Int((intRowAll * Rnd) + 1)
intColAct = Int((intColAll * Rnd) + 1)
strName = Cells(intAct, intColAct).Value
Loop
Set rng = Range("G2").CurrentRegion.Find(strName, lookat:=xlWhole, LookIn:=xlValues)
Loop
Cells(intRow, intCol) = strName
intCol = intCol + 1
If IsEmpty(Cells(2, intCol)) Then
intRow = intRow + 1
intCol = 7
End If
Next intCell
End Sub
Gruß
yummi

Anzeige
AW: Zufallsgenerator Fußballauslosung mehrere Gruppen
19.01.2015 11:45:16
Pascal
Hi! Finde ich klasse wie schnell einem hier geholfen wird! Aber leider bekomme ich jetzt die selbe Fehlermeldung nach dem zweiten for bei "intColAct".
Es kann aber auch sein dass ich irgendwas falsch mache. Wenn ja weiß ich aber leider nicht was ;)
Schönen Gruß Pascal

AW: Zufallsgenerator Fußballauslosung mehrere Gruppen
19.01.2015 11:49:30
Pascal
Sorry war mein Fehler! Habe selber den Fehler gefunden. Ich probiere das nachher mal aus und melde mich wieder! :)

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige