|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
27.02.2009 10:31:13 |
Jan100 |
|
|
|
27.02.2009 11:21:59 |
Holger |
|
|
 Aw:Office2007 Excel VBA |
27.02.2009 16:33:33 |
Jan100 |
|
|
|
01.03.2009 13:27:42 |
Holger |
|
|
Von:
Jan100 |
Datum:
27.02.2009 16:33:33 |
Views:
979 |
Rating:
|
Antwort:
|
Thema:
Aw:Office2007 Excel VBA |
Finde es toll dass auf dieser seite wirklich sehr kompetente leute anzutreffen sind.
eure hilfe ist zu gut, sprich die lösungen sind derart raffiniert, dass niemand davon aus gehen würde, dass sie von uns laien stammen.
unser problem liegt darin, dass es sich bei den aufgaben um etwas sehr wichtiges handelt. bewusst erwähne ich diese wichtigkeit nicht muss leider reichen.
geholfen wäre mir bzw paddy mit einer einfach strukturierten lösung, die von einem laien gewählt würde.
weiss nicht ob dieser beitrag noch rechtzeitig gelesen wird von jemand kompetenten der sich der aufgabe gewachsen fühlt eine anfänger lösung zu basteln.
mir wäre nur geholfen wenn dies noch bis ca 22 uhr der fall wäre
vielen dank
bis demnächst :)
Jan100 schrieb am 27.02.2009 10:31:13:
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 |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
27.02.2009 10:31:13 |
Jan100 |
|
|
|
27.02.2009 11:21:59 |
Holger |
|
|
Aw:Office2007 Excel VBA |
27.02.2009 16:33:33 |
Jan100 |
|
|
|
01.03.2009 13:27:42 |
Holger |
|
|