Nazicht lottogetallen met exceldocument

[tijgerke]

Hallo iedereen,

ik had een programma in excel waar ik de lotto-uitslag ingaf en hij mijn getallen nakeek en aangaf hoeveel ik er juist had.En dit door middel van verkleuring van het vakje. VB in bijlage.

Dit was geschreven in macro. Ik ben dit kwijt geraakt en zou dit graag terug in mijn bezit willen hebben.

Kan iemand mij helpen om dit op het juiste spoor te zetten.

alvast bedankt.

mvg Tijgerke

Lotto.xls

[bucky]

tijgerke,

Omdat ik geen VBA man ben, hier met voorwaardelijke opmaak.

bucky

Lotto_tijgerke.xls

[tijgerke]

yep dit is het helemaal, en kan ik deze nog uitbreiden?

mvg

- - - Updated - - -

eventjes mee aan het spelen geweest, denkelijk gevonden, hartelijk dank, weeral bijgeleerd.

3 juli 2013 aangepast door tijgerke

[kweezie wabbit]

Er is ooit nog eens naar gevraagd en toe is er dit uit de bus gekomen.

lotto.xls

[tijgerke]

Er is ooit nog eens naar gevraagd en toe is er dit uit de bus gekomen.

lotto.xls

Deze ken ik ook nog van vroeger in het café of op de voetbal.

Iedereen mocht 10 getallen invullen, inzet 50cent, en wie er het eerst alle getallen juist had, die won de pot.

Met dit programma kan je dit goed bijhouden en controleren.

bedankt ga ik ook nog bijhouden, kan van pas komen.

mvg

[kweezie wabbit]

Als je verder geen vragen of problemen meer hebt, mag je dit onderwerp afsluiten door een klik op de knop +Markeer als opgelost.

Nog veel plezier met de lotto

[tijgerke]

Vervolg...

Alles lukt perfect, maar nu wil ik de gekleurde cellen laten optellen. Ik gebruik, een module aangemaakt, Alt F11, met als inhoud

Function TelAchtergrondkleur(Bereik As Range, Reference As Range)

Dim Cl As Range, ClrCount As Long

Application.Volatile

For Each Cl In Bereik

If Cl.Interior.ColorIndex = Reference.Interior.ColorIndex Then

ClrCount = ClrCount + 1

End If

Next

TelAchtergrondkleur = ClrCount

End Function

daarna in een cel de formule =TelAchtergrondkleur(A3:E3;F8)

Hij geeft in de cel de waarde 0 , maar als er verkleuringen zijn dan telt hij deze niet op.

graag jullie hulp aub

mvg Tijgerke

[bucky]

tijgerke,

Welke van de twee opties heb je gebruikt? Die van "kweezie wabbit" of van "bucky" ?

bucky

[kweezie wabbit]

Komt dit in de buurt van wat je wil?

NewLOTTO.xls

[tijgerke]

tijgerke,

Welke van de twee opties heb je gebruikt? Die van "kweezie wabbit" of van "bucky" ?

bucky

deze van Bucky

mvg