Voor alle verschillende 5-reeksen én reservegetal.
Run deze macro (berekent razendsnel alle 26000 mogelijkheden)
Sub jec()
ar = Cells(1, 1).CurrentRegion.Offset(, 1).Resize(, 7)
With CreateObject("scripting.dictionary")
For i = 2 To UBound(ar)
.Item(.Count) = Array(ar(i, 2), ar(i, 3), ar(i, 4), ar(i, 5), ar(i, 6), ar(i, 7))
.Item(.Count) = Array(ar(i, 1), ar(i, 3), ar(i, 4), ar(i, 5), ar(i, 6), ar(i, 7))
.Item(.Count) = Array(ar(i, 1), ar(i, 2), ar(i, 4), ar(i, 5), ar(i, 6), ar(i, 7))
.Item(.Count) = Array(ar(i, 1), ar(i, 2), ar(i, 3), ar(i, 5), ar(i, 6), ar(i, 7))
.Item(.Count) = Array(ar(i, 1), ar(i, 2), ar(i, 3), ar(i, 4), ar(i, 6), ar(i, 7))
.Item(.Count) = Array(ar(i, 1), ar(i, 2), ar(i, 3), ar(i, 4), ar(i, 5), ar(i, 7))
Next
Cells(2, 10).Resize(.Count, 6) = Application.Index(.items, 0, 0)
End With
End Sub
Vervolgens deze in P2:
=SOMPRODUCT(--(PRODUCTMAT(AANTAL.ALS(J2:O2;$B$2:$H$3747);{1;1;1;1;1;1;1})=6))
Kan zijn dat deze formule je bestand traag maakt. Er wordt telkens herberkend. Automatisch herberekenen zou je dan kunnen uitzetten.
Uiteindelijk kun je filteren op Kolom P om te kijken of reeksen meerdere keren vallen (niet veel)