Automatische Loting Kickertoernooi

[rokket]

Hoi allemaal,

ik organiseer elk jaar een aantal kickertoernooitjes. Nu is het mij opgevallen dat we altijd veel kostbare tijd verliezen met het manueel te loten van de wedstrijden.
Nu heb ik een excel document in elkaar gestoken om alles wat vlotter te laten verlopen. Alleen heb ik geen flauw benul hoe ik de automatische loting in elkaar moet steken.
het scenario is als volgt:
- er zijn 16 ploegen met elk 2 spelers ingeschreven
- deze ploegen moeten willekeurig onderverdeeld worden in 4 poules
- wanneer ze in hun poules komen krijgt iedere ploeg een letter: Poule 1: A - D, Poule 2: E - H, Poule 3: I - L en poule 4: M - P
- Na de poulefase gaan de 2 beste per poule door naar de Finale Knock-Out. Deze ploegen worden berekend via een formule op het poule tabblad.
- Deze 8 ploegen moeten dan weer geloot worden in 2 reeksen van 4. Deze keer behouden ze hun letter.
- De andere 8 ploegen worden geloot in een Troost Knock-out. Deze behouden hun letter ook.

het probleem is da wanneer ik

=afronden.naar.boven(aselect()*16;0)

gebruik dat er geen rekening gehouden wordt met de andere lotingen.
Kan iemand mij een beetje uitleg geven?

bijgevoegd het bestandje dat ik in elkaar heb gestoken.
Bekijk bijlage kickertoernooi helpmij.xlsm

groetjes,
Rokket

 

[mvw64]

Misschien kan je er zo iets mee
Klik op de knop Loting

 

[rokket]

dan krijg ik een foutmelding: types komen niet overeen.

 

[mvw64]

Dat is jammer
Ik werk nog met Excel 2003 misschien zit daar de fout ?

groetjes

 

[rokket]

ah dat kan zijn. Maar door jouw bestand ben ik wel tot de conclusie gekomen waarom al mijn formules zo lang zijn. ik heb altijd gebruik gemaakt van ALS formules en niet van VERT.ZOEKEN

 

[mvw64]

Kijk zo eens

 

[rokket]

ik heb jouw tips geprobeerd maar ik krijg nog steeds dezelfde foutmelding

 

[VenA]

Deze regel

ActiveCell.FormulaR1C1 = "=ASELECTTUSSEN(1," & Range("H1").Value & ")"

aanpassen in

ActiveCell.FormulaR1C1 = "=RANDBETWEEN(1," & Range("H1").Value & ")"

 

[mvw64]

Een andere aanpassing

 

[rokket]

in jouw bestand werkt het wel maar wanneer ik het probeer te schrijven in mijn eigen bestand loopt het altijd mis...

 

[VenA]

zeker mijn opmerking gemist waardoor het fout gaat?

 

[rokket]

nee dat heb ik aangepast
de melding die ik nu krijg is #N/B

 

[VenA]

Dan ben ik benieuwd waar je wat hebt aangepast. Bij mij gaat het goed.

 

[rokket]

mijn functie is volledig hetzelfde als de jouwe want ik heb hem gekopieerd en geplakt. Of is het daar misgegaan?

 

[VenA]

Kan je dan even jouw bestandje uploaden met de aanpassingen die je gedaan hebt?

 

[rokket]

zoals je ziet heb ik dit

ActiveCell.FormulaR1C1 = "=RANDBETWEEN(1," & Range("H1").Value & ")"

terug aangepast naar dit

ActiveCell.FormulaR1C1 = "=ASELECTTUSSEN(1," & Range("H1").Value & ")"

met als reden dat ik bij beide een 'resultaat' krijg.
Bij de eerste is dit #N/B en bij de tweede #NAAM?

de fout zit zich volgens mij hier:

"=ASELECTTUSSEN(1," & Range("H1").Value & ")"

want als ik op het knopje loting druk zie ik een glimp op van:

=ASELECTTUSSEN(1,)

bijgevoegd mijn aangepast bestand
Bekijk bijlage kickertoernooi helpmij2.xlsm

 

[VenA]

Staat er nog wel wat in H1?

 

[rokket]

aah nu zie ik mijn fout! Bedankt om dit op te klaren!

 

[cow18]

er leiden meerdere wegen naar Rome

Sub Start()
  Dim iAantal As Integer, i As Integer, i1 As Integer, Arr
  With Sheets("inschrijvingen").Range("I4:I19")
    .ClearContents
    iAantal = WorksheetFunction.CountA(.Offset(, 1))
    If iAantal > 0 Then
      ReDim Arr(1 To iAantal)
      For i = 1 To UBound(Arr): Arr(i) = i: Next
      Randomize
      Do While iAantal <> 0
        i = 1 + Fix(iAantal * Rnd)
        .Cells(iAantal, 1) = Arr(i)
        Arr(i) = Arr(iAantal)
        iAantal = iAantal - 1
      Loop
    End If
    Application.Goto .Range("A1")
  End With
End Sub

 

[rokket]

dat is ook wel een leuke oplossing. bedankt!