Permutaties met rangschikking

[DarioKeizer]

Beste allen,

Met behulp van VBA ben ik op zoek naar Permutaties (rangschikking van mogelijke waarden).

Het gaat in dit geval om 8 waarden:
Appel, Peer, Mandarijn, Banaan, Kers, Druif, Perzik, Mango

In dit geval is de rangschikking ook van belang

Waarbij de volgende reeksen:
Appel, Peer, Mandarijn, Banaan, Kers, Druif, Perzik, Mango
Appel, Mandarijn, Peer, Banaan, Kers, Druif, Perzik, Mango
Ook als 2 aparte uitkomsten worden gezien

Het gaat dus om 8! (faculteit) mogelijkheden.
n n!
0 1
1 1
2 2
3 6
4 24
5 120
6 720
7 5 040
8 40 320
Dit zijn er 40.320.

Ik heb een VBA script gevonden wat tot 6! mogelijkheden toont.
En tevens een online generator die tot 7! mogelijkheden toont.

Het is me helaas niet gelukt om een manier te vinden om 8! mogelijkheden te genereren.

Wie weet een manier (bij voorkeur via VBA) om dit te realiseren?

 

[OctaFish]

Op dezelfde pagina waar je het vba script hebt gevonden staat ook een link naar een functie die wél tot 8 gaat. Heb je wel doorgelezen tot het eind van de pagina?

 

[gast0660]

Hier?
Klik

 

[snb]

Als je geen haast hebt:

Sub M_snb()
   sn = Split(" Appel Peer Mandarijn Banaan Kers Druif Perzik Mango")
   
   For j = 12345678 To 87654321
       If InStr(Format(j), "0") + InStr(Format(j), "9") = 0 Then c00 = sn(Mid(Format(j), 1, 1)) & sn(Mid(Format(j), 2, 1)) & sn(Mid(Format(j), 3, 1)) & sn(Mid(Format(j), 4, 1)) & sn(Mid(Format(j), 5, 1)) & sn(Mid(Format(j), 6, 1)) & sn(Mid(Format(j), 7, 1)) & sn(Mid(Format(j), 8, 1))
   Next
End Sub