|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Hilfe beim Einbau der Solver-Funktion in VB-Code |
15.11.2006 16:05:00 |
marcus |
|
|
|
20.11.2006 04:50:28 |
Rasta |
|
|
|
20.11.2006 04:50:31 |
Rasta |
|
|
Von:
marcus |
Datum:
15.11.2006 16:05:00 |
Views:
2013 |
Rating:
|
Antwort:
|
Thema:
Hilfe beim Einbau der Solver-Funktion in VB-Code |
Hallo Leute.
Ich brauche ganz dringend eure Hilfe. Ich möchte die Solver-Funktion von Excel benutzen, um die Summe der kleinsten Fehlerquadrate zu finden. Wenn ich das an einem kleinen Beispiel Zeile für Zeile und Spalte für Spalte auf einem Worksheet mache, funktioniert das auch. Jetzt möchte ich das aber automatisieren und im Hintergrund laufen lassen, da das ganz etwas zu groß wird, um das händisch zu lösen.
Irgendetwas stimmt an diesem Programmcode-Teil nicht:
'Bilde Kleinste-Quadrate
ReDim KQ(1 To Durchläufe)
Parameter(1) = 1
Parameter(2) = 1
Parameter(3) = 1
Summe = 0
For i = 1 To Durchläufe
If S(i) ^ 2 > 0 Then
KQ(i) = (V(i) - Parameter(1) - Parameter(2) * S(i) - Parameter(3) * S(i) ^ 2) ^ 2
Else
KQ(i) = 0
End If
Summe = Summe + KQ(i)
Next i
'Excel-Solver für die Minimumsfindung benutzen
Call solverreset
'Solver-Bedingungen
Call solveroptions(120, 10000, 0.000001, False, False, 1, 2, 2, 0.01, False, 0.0001)
'Startet Solver: Summe soll minimal (2) werden, indem Parameter(1 To 3) verändert werden
Call solverok(Summe, 2, "0", Parameter(1 To 3))
'= "Return drücken"
SendKeys "~"
'Belässt die berechneten Zahlen Parameter(1)-Parameter(3)
Call Solversolve(False)
In V() stehen Zahlen, ebenso wie in S(). Die Summe ist die aufsummierten Werte der KQ. Die Parameter sind vorerst alle auf 1 eingestellt. Die sollen jetzt angepasst werden, damit die Summe minimal wird.
Wo liegt mein Denk-/Syntaxfehler?
Bitte, bitte helft mir!!!
Gruß,
Marcus |
- 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
|
Hilfe beim Einbau der Solver-Funktion in VB-Code |
15.11.2006 16:05:00 |
marcus |
|
|
|
20.11.2006 04:50:28 |
Rasta |
|
|
|
20.11.2006 04:50:31 |
Rasta |
|
|