Exel en willekeurige getallen genereren

[Dieseltje]

Kan je EXEL ( 2007 of 2010, liefst beiden) een reeks willekeurige getallen aan ,bvb, een reeks namen laten koppellen ??
Bedoeling is om een een aantal deelnemers (max. 40) van een willekeurige startplaats te voorzien.
Als er dan ook nog de mogelijkheid is om bepalde nummers op voorhand te elimineren dan zou dat helemaal de oplossing voor mijn probleem zijn.

Of moet ik hiervoor weer een heel nieuw iets gaan gebruiken???
Alle oplossingen zijn welkom, zolang ze maar op XP(sp3), Vista en W7 werken.

Mijn dank op voorhand hebben jullie alvast.

[slicky]

oke,
je kan misschien hier al iets mee doen.
dit is de code voor een macro die dus 40 unieke cijfers plaatst in kolom A, je kan die ook wijzigen hé
je kan die koppelen aan een knop en wanneer je dan op de knop klik veranderen de nummers

Sub uniekenummers()
  Randomize
  For j = 1 To 40
    Cells(j, 1) = Rnd
  Next
    
  [A1:A40] = [index(rank(A1:A40,A1:A40),)]
End Sub

opgelost denk ik. plaats de code in een nieuwe module van VBA in excel.
zet in "B1" het aantal deelnemers en voer de macro "uniekenummers" uit.
leuk om dit eens te testen

Const StartRij As Long = 1
Const Kolom As String = "A"
Const LaagsteWaarde As Long = 1
Public HoogsteWaarde As Long
Public Sub UniekeNummers()
HoogsteWaarde = ActiveSheet.Range("B1").Value
  ActiveSheet.Range(Cells(StartRij, Kolom), Cells(StartRij + ((HoogsteWaarde - LaagsteWaarde)), Kolom)).Value = Application.Transpose(UniekeRandomNummers(LaagsteWaarde, HoogsteWaarde))
End Sub

Public Function UniekeRandomNummers(Laagste As Long, Hoogste As Long) As Variant
  Dim RandomCollection As Collection, Getal As Long, UniekArray() As Long
  
  Set RandomCollection = New Collection
  UniekeRandomNummers = False
  Aantal = ((Hoogste - Laagste) + 1)
  ReDim UniekArray(1 To Aantal)
   
  On Error Resume Next
  
  'Creeer unieke getallen
  Do
    Getal = CLng(Rnd * (Hoogste - Laagste) + Laagste)
    RandomCollection.Add Getal, CStr(Getal)
  Loop Until RandomCollection.Count = Aantal
  
  On Error GoTo 0
  'Unieke gegevens copieren in Array
  For Getal = 1 To Aantal
    UniekArray(Getal) = RandomCollection(Getal)
  Next Getal
  
  'Gegevens teruggeven
  UniekeRandomNummers = UniekArray
  
  'Ruim op
  Set RandomCollection = Nothing
  Erase UniekArray
End Function

suc6

[slicky]

toevoeging
de kolom wissen bij veranderen van aantal deelnemers
maak nieuwe macro aan met deze code

Sub wissen()
    Range("A1:A40").Select
    Selection.ClearContents
    Range("B1").Select
End Sub

en voeg de rode tekst toe aan de code van die ander hierboven

Const StartRij As Long = 1
Const Kolom As String = "A"
Const LaagsteWaarde As Long = 1
Public HoogsteWaarde As Long
Public Sub UniekeNummers()
Call wissen
HoogsteWaarde = ActiveSheet.Range("B1").Value
  ActiveSheet.Range(Cells(StartRij, Kolom), Cells(StartRij + ((HoogsteWaarde - LaagsteWaarde)), Kolom)).Value = Application.Transpose(UniekeRandomNummers(LaagsteWaarde, HoogsteWaarde))
End Sub

[Dieseltje]

plaats de code in een nieuwe module van VBA.

VBA.......VanBovenAchteraan ????

Graag ietsje meer details AUB ? Ikke maar héél klein beetje Excel kennis, spijtig genoeg. En vééél te oud om nog veel bij te leren.

[slicky]

nooit te oud om bij te leren!!!!
maar als je wil kan ik het ook aanmaken voor jou hoor, stuur anders eens het bestand door

VBA (visual basic) open je in excel door rechtsklikken en dan "programmacode weergeven"( of alt+F11)

[Pjotr]

je kan toch gewoon de functie "=ASELECTTUSSEN(1;30)" gebruiken en met F9 deze telkens wijzigen.
Je kan wel kiezen tussen welke getallen je blijft, maar getallen uitsluiten gaat niet

[Pjotr]

je kan toch gewoon de functie "=ASELECTTUSSEN(1;30)" gebruiken en met F9 deze telkens wijzigen.
Je kan wel kiezen tussen welke getallen je blijft, maar getallen uitsluiten gaat niet

Zo is er natuurlijk kans dat er meerdere keren hetzelfde getal voorkomt.
op volgende link kan je zien hoe het wel moet.

http://www.schoutsen.nl/excel-formul...ge-lijst-maken