Hallo!

Ich muss in einer Exceltabelle Daten verarbeiten die ich aus impliziten Gleichungen habe. Zur Lösung dieser impliziten Gleichungen habe ich mir ein kleines VBA-Script geschrieben. 

Sub implizit()




Dim y As Single
Dim X As Single
Dim z As Single
Dim c As Single

y = 0
c = 1

Do
y = y + 0.000000001
X = 1 / (y ^ 0.5)
z = 7.54 + 11.5 * Log10(Cells(1, 8) * (y ^ 0.5))
c = X - z
Loop While (c > 0.000000001)

Sheets("Tabelle1").Range("H2").Value = y

End Sub

Private Function Log10(X)
    Log10 = Log(X) / Log(10#)
End Function

da dieser Code nicht berücksichtig, dass c auch negativ sein kann, habe ich das Ende der Schleife von 

Loop While (c > 0.000000001)

auf 

Loop While (Abs(c) > 0.000000001)

geändert... nur läuft das Script so eeeeeeeeeeeeeeewig, ohne ien Ergebnis zu liefern... ohne Abs() läufts...

Danke für eure HIlfe!