Habe hier ein Makro und wegen Ungenauigkeit bei meinem Office 2002 bei großen Zahlen, gibt es Fehlresultate.
Wer kann helfen?
Fragen ist leichter als antworten, Gruß Alifa
Sub ZaSp28_Versuch() 'Ergebnis:
Dim a As Double, z%, t!
t = Timer
For a = 10000000 To 99999999
If Sqr(a & a) = Int(Sqr(a & a)) Then
Cells(z + 1, 1) = a
z = z + 1
End If
Next
MsgBox "Fertig in " & Timer - t & " Sek"
End Sub