Integral VBA Laufzeitfehler' 13
05.09.2017 15:59:11
Groes
bei meinem vorliegenden Code möchte ich ein bestimmtes numerisches Integral berechnen lassen. Jedoch findet sich in der Reihe mit "Integral = Integral..." ein Fehler, den ich nicht beseitigt bekomme. Setze ich in FunkForm einen String "2x+3" ein, funkt. es, genauso wie mit "2x+3.5" (also inkl. Double im String). Kommt der Double Wert vor das x , z.B. "2.5x+3" erhalte ich den Laufzeitfehler' 13' Typen unverträglich.
Option Explicit
Sub Makro1()
Dim dX As Double
Dim lX As Long
Dim AnzSchritt As Long
Dim Integral As Double
Dim dMin As Double
Dim dMax As Double
Dim FunkForm As String
dMin = Cells(4, 2).Value
FunkForm = Cells(4, 1).Value
dMax = Cells(4, 3).Value
AnzSchritt = Cells(4, 4).Value
dX = (dMax - dMin) / AnzSchritt
For lX = 1 To AnzSchritt
Integral = Integral + Evaluate(Replace(FunkForm, "x", Replace(dMin, ",", "."))) * dX + 0.5 * dX _
* Evaluate(Replace(FunkForm, "x", Replace(dMin + dX, ",", ".")))
dMin = dMin + dX
Next lX
Cells(4, 5).Value = Integral
End Sub
Es wäre super, wenn mir jemand bei diesem Code helfen könnte.
MfG
Carina
Anzeige