Randomnummer

[HWV]

Beste,

Ik had eerder de volgende vraag :

https://www.helpmij.nl/forum/showthread.php/945311-random-nummer-uit-een-lijst-kiezen

Ik roep de volgende code aan via mijn Userform

Private Sub UserForm_Initialize()
  ar = Sheets("Blad1").Cells(1).CurrentRegion
  TextBox1.Value = ar(Application.RandBetween(2, UBound(ar)), 1)
End Sub

Enkel het komt toch nog voor dat er meerdere keren de dubbele waarde getoond worden.
Het komt erop neer dat hij 5 nummers moet tonen, in 5 textbox maar die Mogen niet gelijk zijn aan elkaar.

Hoe krijgen we het voor elkaar dat dit kan.

Groet Henk

 

[edmoor]

Probeer dit eens:
Bekijk bijlage HWV.xlsm

 

[sylvester-ponte]

ik neem aan dat je nummers uit de bestaande lijst kiezen bedoeld.:
als er geen dubbele nummers in de bestaande lijst staan dan kan je geen dubbele nummers krijgen.

 

[HWV]

Klopt idd sylvester-ponte,

Dit is idd wat ik bedoelde, dat hij uit de lijst de nummers pakt.

Bedankt voor het meedenken hierin

Henk