Hoi Wim,
Goed dat je dat vraagt, ben zo nog bij een foutje uitgekomen  .
Ik veronderstel dat je Q31 bedoelt ipv Q28?
Bij Q31 staat al de formule om het aantal deelnemers weer te geven maar als je het zichtbaar wilt maken moet je die cel enkel een kleur geven.

De huidige formule =AANTAL(D4:D59) , na het uitbreiden van de deelnemerslijst moet het worden
=AANTAL(D4:D103). De reden dat ik kolom D tel en niet B is: Wanneer er iemand bijkomt tijdens de loop van een speelpot ,zet ik (enkel) de naam er al in en wanneer de pot eruit is zijn nummers.
Bij Q32 worden het aantal trekkingen geteld. Huidige formule is =AANTAL(S4:S15) Dus ook weer door de uitbreiding van het aantal trekkingen moet dat worden
=AANTAL(S4:S24), dat getal kan je dus ook een kleur geven.
Deze getallen (Q31 en Q32) worden gebruikt om het bedrag in de pot weer te geven bij Q28.
Als het bedrag bij jouw anders is als 0.25 moet je dat ook in de formule aanpassen.Geld ook voor blad betalingen.
Let er wel op dat je geen formule verwijderd want dat geeft dan weer andere resultaten  .

Heb dat nu ook allemaal aangepast en zou het dus als bijlage kunnen erbij doen, maar ik weet niet of dat telkens wel mag?

Hopelijk je hiermaa van dienst te zijn geweest en mvg Guy
 

Hoi Wim,

Als je dan toch echt de namen wilt tellen kan je het totaal cellen (in jouw geval 100) - de lege cellen doen dan heb je het aantal cellen waar iets in staat.

Dan word de formule dus: =100-AANTAL.ALS(B4:B103;"")

@ Leo
Heb je nog aan mij gedacht  ?

@Gipsycd2, ...ik zal vanavond ff mijn 2e bestandje plaatsen met daarin ook een sorteerprocedure op basis van het aantal gebruikte regels.

@Perfect37, Heb je toevallig ook nog mijn oplossing bekeken? Ik ben nog bezig met een uitgebreide versie waarin je ook de bingokaarten kan afdrukken. (komt dus vanavond)

Groet, Leo

Die uitgebreide versie zou ik ook wel willen lenen van je 

Alvast bedankt
Mvg Guy

Heren, Sorry voor mijn 'geen reacties'... Helaas ben ik de laatste tijd nogal druk en probeer dus op de 'snelle vragen' te reageren.
Ik verwacht dat ik morgen (1e paasdag) de 'uitgebreide versie 2' kan afmaken (ja! ik was er WEL al aan begonnen  ).

Hierbij wel alvast een stukje code waarmee je kan sorteren (afkomstig uit mijn workbook).
Sub Sorteer()
Dim lLaatsteRegel As Long

    'bepaal het nummer van de laatste regel
    lLaatsteRegel = Cells(Rows.Count, 1).End(xlUp).Row

    'zet het 'updaten' ff uit om het flikkeren van het scherm te voorkomen
    Application.ScreenUpdating = False
       
    Range("A1:M" & lLaatsteRegel).Sort Key1:=Range("B2"), Order1:=xlDescending, Key2:=Range _
        ("C2"), Order2:=xlAscending, Key3:=Range("A2"), Order3:=xlAscending, _
        Header:=xlGuess, OrderCustom:=1, MatchCase _
        :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
        DataOption2:=xlSortNormal
   
    Application.ScreenUpdating = True
   
End Sub
De code begint met het bepalen van het eind van het bereik aan de hand van de gevulde cellen in kolom A. In dit voorbeeld worden de kolommen A t/m M gesorteerd op respectievelijk kolom B, C en A, waarbij ik kolom B tegengesteld laat sorteren en de rest standaard.
Ik hoop dat jullie hier alvast iets aan hebben... Rest volgt! 

Groet, Leo

Hoi Leo,
Alvast bedankt voor de tijd dat je ervoor vrijmaakt en sorry mocht ik opdringerig overgekomen zijn want is zeker niet mijn bedoeling  .

Wat de code betreft  , dat ga ik moeten overlaten aan de expert aan huis (nl. mijn broer) want daar heb ik nog maar weing tot geen kaas van gegeten  .
Ik veronderstel dat hij er alvast mee verder kan.

Wil je ook nog eens deze vraag bekijken?

Heb je zo die bingo ook met 90 nummers zoals bij de echte bingo (denk toch dat dat 90 tot is)? Op welke basis worden die nummers getrokken? Is dat voorspelbaar of echt willekeurig?
Dit lijkt me wel eens leuk om op een famillie dagje te doen.

Nogmaals Thanks

Mvg Guy

Hoi Guy,

D4 tot M103 direct aangepast op 18 maart 2008 ook S4 tot S24 maar vanaf S16 geen getrokken getallen meer verwerkt in D4 tot M103.

Mvg Wim

Hoi Guy,

Alles helemaal duidelijk. Heb je nog gedacht aan de sorteerprocedure van Leo?


Mvg Wim