Lösung Lotto- Rätsel im excel

[franz2]

Ich habe folgendes Rätsel und die lösung dazu: www.logisch-gedacht.de/knobeleien/lottogewinner/loesung ich würde gerne wissen, wie ich das im excel lösen kann? Danke!!!

 

[Fujiyama]

Einfach mal herumprobieren?

 

[SpamBot]

Mit mächtigen Missbrauch von If /Else Funktionen sollte das doch funktionieren.

Edit: Hatte mal etwas ähnliches gebaut. Das Excel File lief erst ab einer 2016 64bit Excel version ordentlich und hatt sich ca. 4 GB Arbeitsspeicher gegönnt

 

[schumischumi]

Excel Excel oder Excel mit VB/Makros?
Bei letzterem sollte es kein Thema sein.

edit ja makro machts^^ (es muss ein tabellenblat mit dem namen "output" geben)

Sub lottoking()
    Dim arrSummen(259) As Double
    Dim arrLottozahlen(6) As Double
    Dim summe As Double
    Dim produkt As Double
    Dim counter As Double
    
    counter = 2
    For x = 0 To 259
        arrSummen(x) = 0
    Next x
    
    For a = 1 To 44
        For b = a + 1 To 45
            For c = b + 1 To 46
                For d = c + 1 To 47
                    For e = d + 1 To 48
                        For f = e + 1 To 49
                            summe = a + b + c + d + e + f
                            arrSummen(summe - 21) = arrSummen(summe - 21) + 1
                        Next f
                    Next e
                Next d
            Next c
        Next b
    Next a
    
    For a = 1 To 44
        For b = a + 1 To 45
            For c = b + 1 To 46
                For d = c + 1 To 47
                    For e = d + 1 To 48
                        For f = e + 1 To 49
                            summe = a + b + c + d + e + f
                            produkt = a * b * c * d * e * f
                            If (arrSummen(summe - 21) * summe = produkt) Then
                                Sheets("output").Cells(counter, 1).Value = a
                                Sheets("output").Cells(counter, 2).Value = b
                                Sheets("output").Cells(counter, 3).Value = c
                                Sheets("output").Cells(counter, 4).Value = d
                                Sheets("output").Cells(counter, 5).Value = e
                                Sheets("output").Cells(counter, 6).Value = f
                                Sheets("output").Cells(counter, 7).Value = summe
                                Sheets("output").Cells(counter, 8).Value = arrSummen(summe - 21)
                                Sheets("output").Cells(counter, 9).Value = produkt
                                
                                counter = counter + 1
                            End If
                            
                        Next f
                    Next e
                Next d
            Next c
        Next b
    Next a
    
End Sub