Hallo Yuko,

Welkom op oplossing.be !

Je hebt dus wel al een oplossing (ik vind ze evenwel niet in je bestand) om de getallen uit J2:L2 te verwijderen uit A8:T8?
En het enige probleem is nog hoe uit de resterende random getallen te kiezen? Daarvoor zie ik inderdaad een simpelere manier: gebruik het aantal getallen (altijd 17 of kan dat ook variëren? - vertrek in dat geval van de functie 'aantal') als hoogste waarde om een random getal te kiezen, in het voorbeeld dus van 1 tot 17, en die gebruik je vervolgens als 'index'. Om het controleren op gelijke resultaten eenvoudig te houden kan je dan nog hetzelfde principe hanteren voor het 2° en 3°.

Doe je zelf een poging? Als het niet lukt zetten we je wel verder op weg (hoewel, dat zal dan al ongeveer de ganse oplossing zijn ).

Mvg,
Molly

Haha, dat verandert de kwestie.
Je zou ook alles binnen vba kunnen afhandelen, t.t.z. zonder interactie met je werkblad, maar aangezien je nog redelijk nieuw bent in vba heb ik er liever een code voor gemaakt die, vooral als je er stap voor stap door gaat (F8 is gekend?), zichzelf wel zal verklaren.
Veel plezier ermee !

Sub RandBetweenUnregularRange()

Range("A8:T8") = Range("A5:T5").Value
For i = 1 To 3
    schrappen = Cells(2, i + 9)
    kolom = Range("A8:T8").Find(what:=schrappen, lookat:=xlWhole).Column
    Cells(8, kolom).Delete Shift:=xlToLeft
Next i
aantal = 17
For i = 0 To 2
    positie = Int(Rnd * (aantal - i)) + 1
    getal = Application.Index(Range("A8:T8"), positie)
    Cells(11, i + 10) = getal
    Cells(8, positie).Delete Shift:=xlToLeft
Next i

End Sub

Gokje: je kiest voor je lotto-deelname zelf 3 getallen en laat de overige 3 aan het toeval over? 

Mvg,
Molly

Hallo Yuko,

Maar is er een mogelijkheid om apart, buiten de groep dit verder te bespreken.

De bedoeling van een helpforum is dat iedereen er iets mag van opsteken, niet in de laatste plaats omdat helpers een deel van hun vrije tijd op vrijwillige basis en vooral gratis spenderen aan het helpen waar ze maar kunnen. Bijkomende vragen zullen met grote waarschijnlijkheid beantwoord worden als je ze op het forum post.

het lukt me nog niet helemaal

Vrij vertaald begrijp jet het meeste dus wel(?)
Ik had de code geschreven volledig in overeenstemming met de uitleg uit mijn eerste post, reden te meer om te veronderstellen dat er niet zo heel veel onduidelijk kan zijn. Dus meld vooral waar in de code je vast zit. Het zou ook helpen als je vragen als "F8 is gekend?" zou beantwoorden. De inspanning mag een beetje van beide kanten komen, denk ik altijd...

Mvg,
Molly

Goedemorgen Molly/Arnold,

ik begrijp jullie reactie, maar omdat ik nog een beginneling ben in VBA en andere mensen niet onnodig wil vervelen met mijn soms nog veel te eenvoudige vragen, dacht ik dat deze vraag een oplossing kon zijn.
De bedoeling is dat ik mij eerst verder wil bekwamen in VBA, alvorens mij in een groep te mengen.
Anders huppel ik toch maar achterna en houd de rest op om sneller vooruitgang te maken.
Vandaar mijn vraag.

Terug naar het onderwerp, voor zover ik mee ben :

Sub RandBetweenUnregularRange()

Range("A8:T8") = Range("A5:T5")      [Dit is om de beide reeksen gelijk te zetten]
For i=1 To 3                                      [variable voor de 3 getallen]
     schrappen = Cells(2, i+9)              [? naar wat verwijst deze 2, i+9 (i+9= te beginnen vanaf 10???)   
     kolom=Range("A8:T8").Find(what:=schrappen, lookat:=xIWhole).Column
                                                        [Range("A8:T8") is toch een rij en word hier benoemd als een
                                                          kolom
                                                         Deze regel dient om het geselecteerde getal te vinden]
     Cells(8,kolom).Delete shift:=xIToLeft [? wat doet Cells(8,kolom), er achter is om het geselcteerde
                                                             getal te verwijderen]
Next i
aantal = 17                                         [De Range bestaat uit 20 getallen waarvan er 3 geschrapt
                                                           worden, dus er blijven er 17 over]
For i = 0 To 2
     positie Int (Rnd * (aantal- i)) + 1     [ ]
     getal = Application.Index(Range("A8:T8"),positie)     [ ]
     Cells(11, i+10) = getal                     [ ]
     Cells(8, positie).Delete Shift:=xIToLeft   [Verwijderd nieuw geselecteerd getal om dubbel te
                                                                 vermijden]
Next i

End Sub

Ik heb nog te weinig kennis/ervaring in het programmeren om de logische stappen in het proces van de gewone taal om te zetten in code.
Vandaar dat het voor mij moeilijk is om te begrijpen wat er allemaal gebeurt.
De bedoeling is om de code te begrijpen, zodanig dat ik achteraf zelf indien nodig nog aanpassingen kan doen of toepassen in een soortgelijke oefening.
Maar momenteel wil ik al fietsen maar kan niet eens op de fiets zitten, dus ...... .

Ik heb in September 3 scholen bezocht, op zoek naar een avondcursus Excell-VBA, maar zonder succes.
Dan maar via YouTube en wat zelf studie geprobeerd, maar zoals je kan zien heeft het nog niet veel opgebracht.

Yuko

Arnold  ,

er zitten hier veel knappere specialisten in Excel en VBA dan ikzelf...

Letterlijk genomen beweer je hiermee dat je een Excel specialist bent, maar dat je niet zo "knap" bent dan anderen...

Een goeie 

Groeten,

SoftAid