Ik ben voor een familielid lotto 10 aan het maken. Lotto 10 is een spel waar de speler 10 cijfers mag opgeven. Per week worden de uitgekomen lottocijfers vergeleken met de opgegeven cijfers, wie als eertse de 10 cijfers heeft is gewonnen.

Ik heb echter een probleem met het berekenen van het te winnen bedrag.

Het totaal te winnen bedrag = het aantal personen x het aantal weken x 2,5 euro.

Is het mogelijk om het aantal cellen te tellen?
m.a.w. als je een lijst hebt van 50 velden kan je tellen hoeveel velden er ingevuld zijn?

Beste  koshi 

De formule die je nodig hebt voor in cel Q3 is de volgende.

=AANTALARG($B$3:$B$52)*AANTALARG($Q$17:$Q$41)*$R$6
Zie bestandje waar het al is ingevuld.

Groetjes Danny 

Beste koshi 

Zie bestandje met de oplossing erin.

Heb een extra rij ingevoegd voor de som te kunnen bepalen.
Rij 4 kan je dan later verbergen.

Groetjes Danny 

Beste koshi 

Het antwoord op uw vraag lag al gedeeltelijk in mijn vorig antwoord.

Heb wat hulptabellen gebruikt voor het bepalen wie de meeste juiste cijfers heeft.
De kolommen X:AI kan je nadien verbergen.
In kolom M heb ik de juiste aantal cijfers geplaatst en gekleurd in het blauw.

Onderaan staat er een knop met sorteren, telkens als je de nummers ingevuld hebt klik je daarna op sorteren en de personen zullen gerangschikt zijn van groot naar klein volgens hun aantal cijfers.

Groetjes Danny. 

Beste koshi 

Heb je dit gedaan in Excel ?

In Excel ga je naar extra, dan macro's en dan bij eigenschappen (denk ik) daar zet je dit op laag.

Dan zou het normaal moeten lukken.

Ik werk met Excel 2007 en weet de handelingen niet meer zo goed van Excel 2003.

Anders zit je met een probleem, dat ik ook niet weet.

Groetjes Danny 

Ik krijg een foutmelding in excel 2003

Run-time error '438'
Object doesn't support this property or method

Als je gaat debuggen dan geeft hij volgende regel aan :
ActiveWorkbook.Worksheets("Lotto 10").Sort.SortFields.Clear

enig idee wat dit kan zijn?


Sub sorteren()
'
' sorteren Macro
' Sorteert van groot naar klein.
'

'
    Range("B3:M53").Select
    Range("M3").Activate
    ActiveWorkbook.Worksheets("Lotto 10").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Lotto 10").Sort.SortFields.Add Key:=Range("M3"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Lotto 10").Sort
        .SetRange Range("B3:M53")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
End Sub