Office: Integral in Excel berechnen

Hallo zusammen,

ich habe mir folgendes Makro überlegt um ein Integral aus einer x-beliebigen Formel in Excel zu berechnen. Leider hagt es etwas bei einer Typen-Unverträglichkeit.

Mein Plan ist es auf Knopfdruck das Makro auszuführen, welches dann die Daten aus den jeweiligen Zellen liest. Mit Replace ersetze ich die "x" in dem Funktions-String durch die Werte der Variablen und mit Evaluate will ich den String ausrechnen.

Leider hakt es genau da. Hier mein Code, im Anhang befindet sich auch die XLS.
Code:

Viele Grüße

Alex

:)

 

Hallo Alex,

probier mal:
Code:

Den Rechenweg habe ich mir nicht angeschaut.

Grüße
EarlFred

 

ein Traum,

vielen vielen Dank! =)

 

Hallo Alex, Hallo EarlFred,

das Programm läuft sehr gut, außer dass ich in der Formel FunkForm keine Kommazahl vor dem x stehen haben darf (Bsp.Forlmel 2.5x+3 geht nicht). Als Fehler wird mir angezeigt: Laufzeitfehler' 13' Typen unverträglich. Im Debugger zeigt er mir die Berechnungszeile Integral = Integral +... an, jedoch finde ich meinen Fehler nicht.

Hier noch einmal mein Code:
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 sehr nett, falls mir jemand helfen könnte.

MfG