|
Option Explicit
Sub Messlatte_500()
Dim a, b, c, d, e, f, g, h, i
Dim z%, t!, arrAlle(1 To 49) As Variant, arrAusgabe()
Dim arrFuenfzig, arrFuenfundfuenfzig
t = Timer '11 Sek
Sheets("Tabelle2").Activate
Cells.ClearContents
For a = 0 To 41
For b = 1 To 42
If b > a Then
For c = 2 To 43
If c > b Then
For d = 3 To 44
If d > c Then
For e = 45 To 45
If e > b Then
For f = 5 To 46
If f > e Then
For g = 6 To 47
If g > f Then
For h = 7 To 48
If h > g Then
For i = 8 To 50
If i > h Then
arrFuenfzig=Array(0,a,b,c,d,e,f,g,h,i,50)
arrFuenfundfuenfzig=Array(a,b,c,d,e,f,g,h,i,Abs(a-b),Abs(a-c)...(50-i))
Wenn alle Werte von 1-49 in arrFünfundfuenfzig vorkommen, ist die Lösung richtig.
|