Dreizehn Zahlen schneller
31.10.2009 01:31:18
Erich
Hi Vorname,
wie sieht denn dein Makro aus? Das wäre beim Antworten vermutlich nützlich gewesen...
Das sollte schneller gehen,
und in XL2007 gibt es wohl auch genügend Zeilen für die vielen Lösungen:
Option Explicit
Sub aa()
Dim a As Long, b As Long, c As Long, d As Long
Dim e As Long, f As Long, g As Long, h As Long
Dim i As Long, j As Long, k As Long, l As Long, m As Long
Dim tt As Double, zz As Long
For a = 1 To 13
For b = 1 To 13
For c = 1 To 13
For d = 1 To 13
e = a + b - d
If e 13 Then Exit For
tt = (c - b) / 2 + d
If tt Int(tt) Then Exit For
f = tt
If f 13 Then Exit For
g = e + f - a
If g 13 Then Exit For
For h = 1 To 13
i = e + f - h
If i 13 Then Exit For
For j = 1 To 13
k = g + h - j
If k 13 Then Exit For
l = i + j - a
If l 13 Then Exit For
m = k + l - g
If m 13 Then Exit For
zz = zz + 1
Cells(zz, 1).Resize(, 13) = Array(a, b, c, d, e, f, g, h, i, j, k, l, m)
Cells(zz, 15) = a + b - d - e
Cells(zz, 16) = c + d - f - g
Cells(zz, 17) = e + f - h - i
Cells(zz, 18) = g + h - j - k
Cells(zz, 19) = i + j - l - a
Cells(zz, 20) = k + l - m - g
Cells(zz, 21) = a + g - f - e
Next j
Next h
Next d
Next c
Next b
Next a
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort