Maken random tabel zonder overeenkomsten

[Robberdobber]

Hallo allemaal,

Misschien een beetje aparte vraag, maar ik zit met het volgende:

Stel ik heb 4x4 entititeiten;

regel 1 JAAP; HENK; TOM; TIM
regel 2 a ; b ; c ; d
regel 3 1 ; 2 ; 3 ; 4
regel 4 A ; B ; C ; D

Deze factoren wil ik verdelen over 4 tabellen (oftewel 4x4).

Dit wil ik doen via een 'random' looting. Punt is dat ik nu voor het probleem sta dat als ik excell random laat 'trekken' er soms op een regel een overeenkomstige naam verschijnt.
Ofwel dat regel 1 twee keer JAAP kan bevatten.

Ik kan wel één keer uitzonderen met de IF() functie. Maar hoe doe ik dit met meerdere factoren. Dus dat in de 3de tabel (indien JAAP en HENK reeds genoemd zijn) deze niet nogmaal worden genoemd en er voor excell alleeen keuze bestaat uit TOM of TIM.

BVD

 

[LucB]

Dag Robberdobber,

Welkom op Helpmij.

Ik hoop dat je geduldig wachten wordt beloond.

Hierbij van mij een aanzetje.

 

[GiMe]

Een oplossing zonder VBA (toets F9 voor herberekening) :

 

[snb]

Zonder VBA ?

alternatief voor jouw macro 'trekking'

Sub Trekking()
  Application.ScreenUpdating = False
  With Sheets(2)
    For j = 0 To 3
      Sheets(2).Range("A1:B4").Offset(, 2 * j).Sort [B1].Offset(, j * 2)
      Sheets(1).Cells(j + 1).Resize(, 4).Value = Sheets(2).Cells(j + 1,  j * 2 +1).Resize(4).Value
    Next
  Application.ScreenUpdating = True
End Sub

 

[GiMe]

Zonder VBA ?

? ?

Heb gewoon LucB's (VBA) oplossing laten staan en mijn poging (zonder ! ) erbij geplaatst ! !

 

[snb]

Kijk dat verklaart veel.
Sorry, mijn neus was blijkbaar iets te lang.