Thema Datum  Von Nutzer Rating
Antwort
Rot Office2007 Excel VBA
 27.02.2009 10:31:13 Jan100
NotSolved
27.02.2009 11:21:59 Holger
NotSolved
27.02.2009 16:33:33 Jan100
NotSolved
01.03.2009 13:27:42 Holger
NotSolved

Ansicht des Beitrags:
Von:
Jan100		 Datum:
27.02.2009 10:31:13		 Views:
2196		 Rating:
     
Antwort:
  Ja
Thema:
Office2007 Excel VBA
Sub Integral()


Schreiben Sie ein Programm zur numerischen Integration einer Funktion mit einer Variablen "x". Die Zellen eines Arbeitsblattes enthalten A1: die untere Integralgrenze, A2: die obere Integralgrenze, A3: die Schrittweite, A4: x (muss vom Programm in einer Schleife bestimmt werden), A5: die Funktion als Formel. Das Integral soll in einer MsgBox ausgegeben werden.




Dim obereIntegralgrenze#, AnzahlTeilintervalle#, x#, Breite#, irgendwas# 'deklariert als double

Dim Laufvariable1% 'deklariert als integer

Dim Funktionsgleichung$ 'deklariert als string

Dim Ergebnis! 'deklariert als single



'eingabe der benötigten werte

uIntgrenze = InputBox("untereIntegralgrenze")

oIntgrenze = InputBox("obereIntegralgrenze")

Anzinterv = InputBox("AnzahlTeilintervalle")

Fnktgl = InputBox("Funktionsgleichung") 'z.B (=4*x+6)



'

Cells(1, 1) = uIntgrenze

Cells(2, 1) = oIntgrenze

Cells(3, 1) = Anzinterv

Cells(5, 1) = Fnktgl



Breite = (oIntgrenze - uIntgrenze) / Anzinterv



For Laufvariable1 = 1 To Anzinterv 'laufindex



Vari = uIntgrenze + (Laufvariable1 * Breite) ' ZelleA4 x



Cells(4, 1) = x

irgendwas = Cells(5, 1)

irgendwas = irgendwas + Cells(6, 1)

Call Zwischenergebnis(irgendwas)

Next



Ergebnis = Breite * Cells(6, 1)



MsgBox (Ergebnis)





End Sub

Sub Zwischenergebnis(irgendwas)

Cells(6, 1) = irgendwas



End Sub



Habe mich an der Aufgabe versucht, jedoch beziehe ich weder meine Werte aus der Tabelle, noch gibt mir das Programm stets die gleichen Ergebnisse aus.

Vielen Dank nochmals im Vorraus

Jan100

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
Rot Office2007 Excel VBA
 27.02.2009 10:31:13 Jan100
NotSolved
27.02.2009 11:21:59 Holger
NotSolved
27.02.2009 16:33:33 Jan100
NotSolved
01.03.2009 13:27:42 Holger
NotSolved