• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Automatische Loting Kickertoernooi

Status
Niet open voor verdere reacties.
rokket

rokket

Gebruiker
Lid geworden
28 dec 2013
Berichten
15
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
Code: 
=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
 
Laatst bewerkt:
dan krijg ik een foutmelding: types komen niet overeen.
 
Laatst bewerkt door een moderator:
Dat is jammer
Ik werk nog met Excel 2003 misschien zit daar de fout ?

groetjes
 
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 :-)
 
Laatst bewerkt door een moderator:
ik heb jouw tips geprobeerd maar ik krijg nog steeds dezelfde foutmelding
 
Deze regel
Code: 
ActiveCell.FormulaR1C1 = "=ASELECTTUSSEN(1," & Range("H1").Value & ")"
aanpassen in
Code: 
ActiveCell.FormulaR1C1 = "=RANDBETWEEN(1," & Range("H1").Value & ")"
 
in jouw bestand werkt het wel maar wanneer ik het probeer te schrijven in mijn eigen bestand loopt het altijd mis...
 
nee dat heb ik aangepast :-)
de melding die ik nu krijg is #N/B
 
Laatst bewerkt:
mijn functie is volledig hetzelfde als de jouwe want ik heb hem gekopieerd en geplakt. Of is het daar misgegaan?
 
Kan je dan even jouw bestandje uploaden met de aanpassingen die je gedaan hebt?
 
zoals je ziet heb ik dit
Code: 
ActiveCell.FormulaR1C1 = "=RANDBETWEEN(1," & Range("H1").Value & ")"

terug aangepast naar dit
Code: 
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:
Code: 
"=ASELECTTUSSEN(1," & Range("H1").Value & ")"
want als ik op het knopje loting druk zie ik een glimp op van:
Code: 
=ASELECTTUSSEN(1,)

bijgevoegd mijn aangepast bestand
Bekijk bijlage kickertoernooi helpmij2.xlsm
 
Laatst bewerkt:
aah nu zie ik mijn fout! Bedankt om dit op te klaren!
 
er leiden meerdere wegen naar Rome
Code: 
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
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan