Spielplan erstellen für Turnier
17.10.2013 21:10:11
David
ich habe eine Excelmappe, mit welcher ich einen Spielplan für ein Beer Pong Turnier erstellen will.
Generell ist es so, dass ich eine Liste von Teams habe, die ich Random-mässig drei Gruppen zuordnen will. Dabei sollte jede Gruppe so ziemlich die gleiche anzahl an teams haben. Klar kann es nicht immer aufgehen, aber zum großteil schon.
Ich hab ejtzt ein makro, welches mir schonmal die teams mischt. Jetzt weis sich aber nicht, wie ich das so hinbekomme (da ich von VBA keine ahnung habe), dass die Teams in die Gruppen aufgeteilt werden. Kann mir hier jemand dazu helfen?
Sub makro01()
Randomize Timer
Dim zeile As Long
zeile = Sheets(1).Range("A65535").SpecialCells(xlCellTypeLastCell).Row
ReDim lottozahl(zeile)
ReDim zahl(zeile)
Dim endeindex, allezahlen, ziehung
Dim gezogen
endeindex = zeile
For allezahlen = 1 To zeile
lottozahl(allezahlen) = Cells(allezahlen, 1)
Next allezahlen
For ziehung = 1 To zeile
gezogen = Int(Rnd * endeindex) + 1
zahl(ziehung) = lottozahl(gezogen)
lottozahl(gezogen) = lottozahl(endeindex)
endeindex = endeindex - 1
ReDim Preserve lottozahl(endeindex)
Range("B" & ziehung) = zahl(ziehung)
Next ziehung
End Sub
Anzeige