Thema Datum  Von Nutzer Rating
Antwort
25.02.2009 13:08:51 Paddy
NotSolved
26.02.2009 12:51:32 Holger
NotSolved
26.02.2009 12:55:41 Paddy
NotSolved
Blau Aw:Aw:Aw:Wer kann dieses Programm?
 26.02.2009 13:55:36 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
26.02.2009 13:55:36		 Views:
641		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Aw:Wer kann dieses Programm?
Hallo Paddy,
versuche

Sub Integral_mit_Formel_als_Zellentext()
'A1: untere Integralgrenze, A2: obere Integralgrenze, A3: Schrittweite
'in A5 steht die zu integrierende Funktion in einer Schreibweise, mit der sowohl
'Excel als auch VBA etwas anfangen können:
'z.B. "x^3", "sin(x)*ln(x) oder "abs(ln(x))^log(x)".
'Aber "Wurzel(x)" oder Sqr(x) gehen nicht, dafür z.B. "x^0.5"
'Fehler aus Polstellen oder Unstetigkeiten werden nicht aufgefangen!
'Der Funktionswert wird in der Intervall-Mitte genommen
Application.Volatile
Cells(1, 4).NumberFormat = "@"
s = 0
For i = Cells(1, 1) + Cells(1, 3) / 2 To Cells(1, 2) Step Cells(1, 3)
Cells(1, 4) = CStr(i) 'lfd x
d = Replace(Cells(1, 5), "x", Cells(1, 4))
s = s + Evaluate(Replace(d, ",", "."))
Next i
MsgBox (CStr(s * Cells(1, 3)))
End Sub

Gruß
Holger

Paddy schrieb am 26.02.2009 12:55:41:

Folgendes:

Sub numInt() 'Name der Prozedur
Dim A1, A2, A3 As Single 'Deklaration der Variablen im Wertebereich Single
Dim x As Single 'Deklaration der Variable x im Bereich Single
Dim A5 As String 'Deklaration der Zeichenkette als String

A1 = InputBox("Bitte die untere Grenze eingeben:") 'Abfragen an den Nutzer
A2 = InputBox("Bitte die obere Grenze eingeben:")
A3 = InputBox("Wählen Sie die Schrittweite:")

x = 0 'Anfangsbedingung für die Variable x




For i = A1 To A2 Step A3 'For Schleife

x = x + 1 'geht mit der x-Variable immer einen Schritt weiter
A5 = x ^ 3 + x ^ 2 + 1
Next


MsgBox ("Das Integral lautet: " & A5) 'Ausgabe mit Message Box


End Sub

Die Formel A5 habe ich einfach angenommen. Ich weiß aber nicht ob das so korrekt ist.... an der aufgabe da beiß ich mir echt die zähne aus, wobei ich da noch eine hab die echt krass ist für mich :)

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.02.2009 13:08:51 Paddy
NotSolved
26.02.2009 12:51:32 Holger
NotSolved
26.02.2009 12:55:41 Paddy
NotSolved
Blau Aw:Aw:Aw:Wer kann dieses Programm?
 26.02.2009 13:55:36 Holger
NotSolved