Scrabble-code

[LucB]

Graag uw hulp bij het vinden van een 7-letterwoord
in het SCRABBLE-spel.
Ik heb 7 ongelijke letters bv ZIKMLUE.
Er zijn 5040 lettercombinaties mogelijkk.(7! = 5040)

Met een permutatie-code krijg ik in kolom A deze
5040 lettercombinaties.

Vraag:
Wie helpt mij aan een snelle code om uit deze combinaties
goede nederlandse woorden te vinden.

Ondestaande Macro doet het, maar is ontzettend traag.

Sub Check()
Dim c As Variant
Dim x As Long, y As Long
x = Cells(Rows.Count, "A").End(xlUp).Row
For Each c In Range("A1:A" & x)
If Application.CheckSpelling(c) = True Then
y = Cells(Rows.Count, "D").End(xlUp).Row + 1
Range("D" & y) = c.Value
End If
Next c
End Sub

 

[vanzwam]

Wat wil je nu. Zulke combinatie vergt wel wat tijd. Maar wat betreft je berekening, zou dit niet 5012 combinaties moeten zijn.
(7X6X5X4X3X2X1)- (7+6+5+4+3+2+1) zou toch de formule moeten zijn dacht ik. Dit aangezien je eerste of tweede enz.. letter hetzelfde blijft. Of ken ik niets meer van intergraal rekenen (kan ook zijn natuurlijk)

 

[Hans123]

Hoewel ik bang en dat de spellingscontrole het langzaamst is wil het ook wel eens helpen om de uitkomsten eerst in een array te plaatsen en deze aan het eind van je macro pas weg te schrijven naar je werkblad. Indien er op je werkblad veel formules staan wil het op handmatig zetten van je berekeningen ook helpen.