Macro hangt soms

[robdgr]

In kolom O worden vijf getallen tussen 1 en 5 getrokken en in P en Q vijf getallen tussen 0 en 9. Meestal gaat het goed, maar een enkele keer blijft onderstaande macro hangen op de eerste of tweede opdracht. De macro luidt:

Sub trek_getallen()

On Error Resume Next

Dim keuze As Integer, getal1 As Integer, getal2 As Integer, i As Integer

Application.ScreenUpdating = False

For i = 1 To 5

Do
keuze = Application.WorksheetFunction.Round(Rnd() * 4, 0) + 1
Loop Until Range("O1:O" & i).Find(keuze) Is Nothing
Range("O" & i) = keuze

Do
getal1 = Application.WorksheetFunction.Round(Rnd() * 9, 0)
Loop Until Range("P1:P" & i).Find(getal1) Is Nothing
Range("P" & i) = getal1

Do
getal2 = Application.WorksheetFunction.Round(Rnd() * 9, 0)
Loop Until Range("q1:q" & i).Find(getal2) Is Nothing
Range("q" & i) = getal2

Next i

Application.ScreenUpdating = True

End Sub

Wat zie ik over het hoofd?

 

[Hoornvan]

rdg1314,

Als je het rode er bij zet doet hij het dan nog?

Sub trek_getallen()
[COLOR="red"][O1:Q5] = ClearContents[/COLOR]
On Error Resume Next
......
End Sub

 

[robdgr]

Wim,

Dank, was het hele leven maar zo simpel.

Ik had deze in een module geplaatst, maar moest hem onder blad2 hangen. Moet ik daarvoor iets aanvullen?

 

[Hoornvan]

Wim,

Dank, was het hele leven maar zo simpel.

Ik had deze in een module geplaatst, maar moest hem onder blad2 hangen. Moet ik daarvoor iets aanvullen?

Ik heb de code oder een knop geplaatst en de rode regel er bij gezet en ondervond geen problemen.
De knop die ik gebruikt heb is van "ActieveX-Bsturingselementen"

 

[robdgr]

Ik heb het bestand verder aangepast: alles op één werkblad. Het is te vinden via de Excel-pagina op mijn site: staatsloterij.