VBA code Willekeurig getal

[nicoOos]

Hey,
ik ben bezig met het maken van Bingo.
Ik heb een code ingegeven dat er dan een willekeurig getal wordt afgebeeld.
Het probleem is dat er meer dan 1 keer hetzelfde getal wordt gegeven
ik streef ernaar om elk getal van 1 t.e.m. 99 uit te voeren in een label

is het ook mogelijk om elk getal (bv. om de 5 sec) automatisch te veranderen i.p.v. te drukken op een opdrachtknop(commandbutton).

Zou iemand mj uit deze problemen kunnen helpen?
Alvast Bedankt!!

 

[leofact]

Je kunt met Application.WorksheetFunction.CountIf(Range("jouwrange"), sTest)
kijken of het getal al voor komt in het bereik (tabel)

Met on time kun je een macro uitvoeren na een bepaalde tijdsduur (bv 5 sec)
Zo kun je dus om de 5 sec een getal genereren.
Als je om time even googled, vind je genoeg voorbeelden.

mvg Leo

 

[nicoOos]

Je kunt met Application.WorksheetFunction.CountIf(Range("jouwrange"), sTest)
kijken of het getal al voor komt in het bereik (tabel)

Met on time kun je een macro uitvoeren na een bepaalde tijdsduur (bv 5 sec)
Zo kun je dus om de 5 sec een getal genereren.
Als je om time even googled, vind je genoeg voorbeelden.

mvg Leo

Zou u eens een kort voorbeeld kunnen geven
AUB?
Bedankt!!

 

[leofact]

In dit voorbeeld wordt de code om het kwartier uitgevoerd.

Dus in b.v de gebeuertenis macro workbook komt deze code

Private Sub Workbook_Open()

  Application.OnTime Now + TimeValue("00:00:05"), "JouwMacro"

End Sub

Nu wordt 5 sec na het openen van het werkbook JouwMacro aangeroepen.
en daar laat je de gewenst code uitvoeren en zet je ontime weer klaar voor over 5 sec(

Sub JouwMacro()

   Application.OnTime Now + TimeValue("00:00:05"), "JouwMacro"
jouw code
End Sub

Wanneer er tekst ingevoerd wordt in een cel wacht excel totdat dit klaar is.
Het ontime event wordt dan niet uitgevoerd (dit wordt dan later ingehaald)

 

[snb]

Hier had je natuurlijk al gekeken.