Pause inlassen in een macro

[NIh1IlO]

Gegroet macrospecialisten

ik heb een macrootje gemaakt voor de simulatie van een lottotrekking. Ik zou echter tussen de trekking van de verschillende getallen een pauze willen inlassen van een 2 tal seconden.
Kan men mij helpen aan de code om dit te verwezenlijken?
Ik werk in VBA voor Excel 2000.

Met dank op voorhand

nIh1IlO

 

[fra]

Application.Wait (Now + TimeValue("0:00:02"))

fra

 

[NIh1IlO]

Beset fra, bedankt voor de zeer snelle reactie doch ik bedoelde niet dat de toepassing moest wachten.
Ik probeer te verduidelijken: aan de hand van een formuliertje waarop txtvakjes voorzien voor het plaatsen van de getrokken getallen wil ik een lottotrekking laten verlopen met een Randomize en een Rnd.
Ik zou echter willen dat na de trekking van een getal en het invullen in het voorziene vakje van dat getal er een klkeine pauze is zonder dat het formuliertje op mijn scherm verdwijnt. Ik zou dus eigenlijk willen dat de getallen met een tussenpauze van bvb 2 seconden getrokken worden en met diezelfde tussenpauze dus ook verschijnen in het voorziene vakje.
Hopelijk ben ik duidelijker geweest.

Vriendelijke groeten van nIh1IlO

 

[jzeedijk]

Hoi NIh1I|O,

Volgens mij moet de code van Fra gewoon goed werken als je deze tussen de trekking van de getallen staat. Kun je je programmacode even posten?

Jeroen

 

[NIh1IlO]

Hello jeroen

ik voeg de code in een gezipte bijlage
Met dank alvast voor het nakijken.

PS: ik heb de code van fra er NOG NIET ingevoegd.

Groetjes van

nIh1IlO

 

[jzeedijk]

Hoi,

Als je de code van Fra na select Case in de Lotto macro zet wacht de code nadat een textbox gevuld is.

Dat zou het moeten doen.

Jeroen

 

[NIh1IlO]

Hello Jeroen

ik heb de code ingevoegd zoals gesuggereerd doch hij doet het niet; althans alleszins niet zoals ik hierboven beschreef hoe ik het wilde?

Met vriendelijke groeten van nIh1IlO

 

[Sdekreek]

Hoi,

Jeroen heeft aangegeven dat de code die aangereikt is na de select case ingevoegd moet worden. Hij heeft ook aangegeven dat de code moet worden ingevoegd tussen de trekking van de getallen. Ik heb de indruk dat jij nu de code nog maar 1 keer hebt ingevoegd. De code moet ingevoegd worden binnen de Case 1, Case 2, enz.

Wanneer je dit op deze manier doet werkt de code zoals Jeroen al aan heeft gegeven.


Succes en groet,
Stefan

 

[Sdekreek]

Sorry, beetje overbodig. Kunt volstaan met de code voor "Next i" te plaatsen.

 

[NIh1IlO]

Hoi fra, Jeroen en Stefan

ik heb de vermelde code al op alle mogelijke plaatsen ingelast maar hij doet het niet zoals is beschreef wat ik wilde.

Vriendelijke groetjes en hopelijk op 'de' goeie tip.

nIh1IlO