Genauigkeit
20.09.2008 09:12:00
Alifa
lange habe habe ich euch mit Fragen verschont. Heute muß es wieder sein.
Mein Makro funktioniert nicht, wahrscheinlich wegen der Tarsache, dass die Wurzel nicht genau stimmt. Ich brauche eine Genauigkeit bei x,u, v von drei Nachkommastellen. kann mie jemand einen Tipp geben?
Hier mein Makro:
Sub AlterTeppich()
Dim x, u, v, w As Single
For x = 1 To 4
For u = 1 To 4
For v = 5 To 9
x = 10 * u / v
w = 10 - v
If w ^ 2 = x ^ 2 - u ^ 2 And x u And x v And v u Then
Cells(z + 1, 1) = x
Cells(z + 1, 2) = u
Cells(z + 1, 3) = v
z = z + 1
End If
Next
Next
Next
End Sub
Anzeige