String in variable umwandeln in vbaExcel?
Hallo zusammen,
Ich habe mir einen Numerischen Rechner für Ableiten und Integrieren programmiert.
Ich will die Funktion mit einem Eingabefenster eingeben.
Kann ich den eingegebenen String x(i)^2 als variable umwandeln. Es sollte aber auch sin(sin(x(i))) gehen.
Wenn es geht wäre es toll
Können das vieleicht andere Programme
2 Antworten
Wenn ich Dich richtig verstanden habe, möchtest Du eine Funktionsgleichung als Text eingeben (z.B. x^2 +4*x-9) und VBA soll damit rechnen. Zum Beispiel die Steigung der Funktion an einer Stelle x, die Du ebenfalls eingeben kannst, oder die Fläche unter der Kurve von x1 bis x2.
Du willst aber nicht algebraisch ableiten oder integrieren, sondern rein numerisch. Nette Idee!
Für die ersten Schritte hab ich mir etwas ausgedacht.
VBA fragt Dich nach der Funktionsgleichung und dem x-Wert und berechnet dann für den x-Wert den dazu gehörenden Funktionswert. Ich habe keinerlei Fehlerbehandlung eingebaut. Fehlerhafte Eingaben werden also nicht abgefangen.
Hier der quick 'n dirty Code:
Sub calculus()
formelstring = InputBox("Bitte Formelstring eingeben, z.B. x^2+4*x-7" _
& Chr(13) & "Alle Rechenoperationen eingeben." _
& Chr(13) & "* für Multiplikation nicht vergessen.")
inputformel = formelstring
Stuetzstelle = InputBox("Bitte X-Wert eingeben, für den der Funktionswert der Funktion" _
& Chr(13) & inputformel _
& Chr(13) & "berechnet werden soll.")
For i = Len(formelstring) To 1 Step -1
If Mid(formelstring, i, 1) = "x" Then
formelstring = Left(formelstring, i - 1) & "(" & Stuetzstelle & ")" & Mid(formelstring, i + 1, 999)
End If
Next
' Hier kommt die eigentliche Berechnung
Ywert = Application.Evaluate(formelstring)
'
Ausgabestring = "Der Wert der Funktion:" _
& Chr(13) & inputformel _
& Chr(13) & "An der Stelle: x=" & Stuetzstelle _
& Chr(13) & "lautet:" _
& Chr(13) & Ywert
MsgBox Ausgabestring
End Sub
Für eine Parabel und einen Sinus funktioniert es. Viel mehr habe ich nicht getestet - sollte ja nur als Anregung dienen. Viel Spaß damit. Ich hoffe, Du kannst etwas damit anfangen und freue mich auf Feedback.
Gruß
Hannes
Welche komplexen Formeln hast Du denn ausprobiert und welche funktionieren nicht? Deine Rückmeldung klingt eher so, als hättest Du den Ansatz weder ausprobiert noch verstanden.
Danke aber, ich wollte das Programm um komplexe Formeln zu integrieren die nicht immer deinem Schema entsprechen
Erstmal die zwei Grundbegriffe verstehen (variable und Datentypen):
https://de.m.wikipedia.org/wiki/Variable_(Programmierung)
https://de.m.wikipedia.org/wiki/Datentyp
https://docs.microsoft.com/de-de/office/vba/language/concepts/getting-started/declaring-variables
Um einen String in einen numerischen Datentyp umzuwandeln:
CDbl(expression)
CDec(expression)
CInt(expression)
CLng(expression)