random verdelen met voorwaarde

[shivalli]

Beste lezers,
Graag jullie hulp bij het volgende:
Ik moet een aantal stageplekken verdelen onder een x-aantal studenten.
Met als voorwaarde dat een stageplek slechts 1 keer per student verdeeld mag worden.
Met onderstaande script (welke ik op de website vond), kom ik al uit met week 1. Wie kan verder helpen met het aanpassen van deze script, zodat het ook rekening houd met de voorwaarde dat de student in de 4 weken 4 verschillende stageplekken heeft. Ik hoop dat het duidelijk is zo.
Sub stageplekken()
Dim v, temp
Dim i As Long, n As Long

Randomize
v = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)

For i = 1 To UBound(v, 1)
n = Int(Rnd * UBound(v, 1)) + 1
temp = v(n, 1)
v(n, 1) = v(i, 1)
v(i, 1) = temp
Next

Range("B2").Resize(UBound(v, 1)) = v

End Sub

 

[snb]

VBA is niet nodig

 

[shivalli]

Dag Snb,
Dank voor je snelle reactie
IK denk echter dat je me niet zo goed begrepen heb. In de vier weken moeten bijv student A 4 verschillende stage plekken.
In jouw voorbeeld is dat niet zo
Ik hoop dat het nu duidelijk is.

gr

 

[OctaFish]

Je vraagstelling komt een beetje overeen met dit topic. Daarin gaat het over tafelschikking, maar het idee is hetzelfde. Wellicht kun je daar wat uit halen.

 

[shivalli]

OCtafish, dankjewel! hiermee kan ik zeker verder.

gr,
S