Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Solver über VBA starten? Hilferuf an Nepumuk

Forumthread: Solver über VBA starten? Hilferuf an Nepumuk

Solver über VBA starten? Hilferuf an Nepumuk
17.02.2005 12:35:51
Mathe
Hallo liebes Forum und v.a.lieber Nepumuk,
kann mir bitte einer sagen wie ich den Solver über VBA aktivieren kann?
Ich habe 49 x 41 Tabelle für die ich in jeder ZElle den Solver nicht immer von Hand starten möchte.
Wie geht das?
DANKE FÜR DIE HILFE!
Anzeige
Solver über VBA starten? Geht nicht?
17.02.2005 14:11:42
Mathe
Also erstmal danke für den Tipp aber das habe ich schon probiert.
Mein genaues Problem.
Also das Add-In Solver ist installiert.
Ich möchte es über VBA starten das geht nach obigen Link.
Nun möchte ich ja die Variabeln immer einlesen lassen also schreibe ich folgende ZEilen in VBA:
-------

Function löse(Zielzelle, Wert, Variabel)
löse = SolverOk(SetCell:=Zielzelle, MaxMinVal:=3, Valueof:=Wert, ByChange:=Variabel)
End Function

---------
Wenn ich nun weiter klicke kommt der Aufruf das erstellte Makro zu bennenen. Ich nenne es "test". Danach erscheint automatisch im VBA folgender Ausdruck:
---------

Sub test()
End Sub

--------
Nun gehe ich in Excel auf eine Zelle und schreibe dort:
=solve(A1;0;B2)
Dann drücke ich enter.
Nun erscheint die Fehlermeldung:
Fehler beim Kompilieren. 

Sub oder 


Function nicht definiert.
Wenn ich OK klicke ist folgende Zeile gelb markiert:


Function löse(Zielzelle, Wert, Variabel)
WAS TUN?
DANKE FÜR DIE HILFE!!
Anzeige
AW: Solver über VBA starten? Geht nicht?
Tim
Die Funktion heißt löse und nicht solve
Tim
Der name der Funktion ist egal!! Wie gehts?
17.02.2005 14:22:31
Mathe
Hi Tim,
wie ich die Funktion nenne ist völlig egal es kommt immer dasselbe Problem!! ich kann die Funktion auch tim oder Solve oder egal was nennen der Fehler ist immer derselbe.
Das Problem siehe: https://www.herber.de/bbs/user/18190.xls
Anzeige
AW: Der name der Funktion ist egal!! Wie gehts?
bst
Hi,
wie weit hast Du denn im Tutorial gelesen ?
Der Verweis im VBA auf solver.xla fehlt.
HTH, Bernd
Solver.xla ist ja je nach Version und Pc woanders
17.02.2005 14:49:31
Mathe
Hi Bernd,
danke für den Tipp aber die Solver Datei ist ja auf jedem Rechner woanders. War mein Fehler. Sorry.
Also wenn ich nun den Verweis Zulasse und den oben genannten VBA Code eingebe erscheint die Fehlermeldung "Solver: ein unerwarteter interner Fehler ist aufgetreten"
Was nun?
Dake für die Hilfe!!
Gruß Renny
Anzeige
Keine fehlermeldung sondern Wert = 1?
17.02.2005 15:04:06
Mathe
Also nun habe ich keine Fehlermeldung mehr sondern habe in der ZElle auf einmal den Wert 1?
Was ist falsch?

Function löse(Zielzelle, Wert, Variabel)
löse = SolverOk(SetCell:="Zielzelle", MaxMinVal:=3, Valueof:="Wert", ByChange:="Variabel")
End Function

Anzeige
AW: Keine fehlermeldung sondern Wert = 1?
bst
Hallo Renny,
ich bin noch nie auf die Idee gekommen den Solver via einer Funktion aufzurufen.
Aber, ein SolverOK ist IMHO etwas wenig.
Vielleicht solltest Du ja erst mal ein paar Nebenbedingungen einbauen.
Versuch mal sowas, konventionell via Makro.
cu, Bernd
-- 

Sub Makro2()
Sheets.Add
Range("E4").Formula = "=SUM(A1:G1)"
SolverOk SetCell:="$E$4", MaxMinVal:=2, ValueOf:="0", ByChange:="$A$1:$G$1"
SolverAdd CellRef:="$A$1:$G$1", Relation:=3, FormulaText:="1"
SolverAdd CellRef:="$A$1", Relation:=1, FormulaText:="9"
SolverAdd CellRef:="$B$1:$C$1", Relation:=1, FormulaText:="5"
SolverAdd CellRef:="$D$1:$G$1", Relation:=1, FormulaText:="10"
SolverSolve True
End Sub

Anzeige
AW: Keine fehlermeldung sondern Wert = 1?
17.02.2005 15:51:44
Mathe
Hi Bernd,
hmm tausend Dank erst mal. war ein guter Tipp dabei den ich übersehen hatte! DAAANKE!
So ich habe nun meine Subroutine für 1 Zelle am laufen!
Aber wie bekomme ich das nun automatiesiert für meine 41x49 Matrix hin?
Also z.B. nur mit den Variablen Namen Zielzelle und Variable.
Tausend Dank soweit.
Grüße aus dem eingeschneiten Suttgart
Anzeige
AW: Solver über VBA starten? Geht nicht?
bst
Auch Hallo,
Fange vielleicht mit was Einfacherem an.
Zeichne Dir mit dem Makrorekorder einen funktionierenden Solverablauf auf.
Schau Dir den resultierenden Code an
cu, Bernd

Forumthreads zu verwandten Themen

Solver-Verweis automatisch setzen
Melanie

Hallo liebes Forum,
ich bin ziemlich am Verzweifeln :-(!
Ich schreibe für meine Abschlussarbeit ein VBA-Programm, in dem der Solver-Befehl ausgeführt werden soll. Der Solverbefehl ist programmiert und das AddIn "Solver" ist auch installiert. Das Programm soll als Anwendung ausgeführt we...
31.10.2008 17:18:00
Thread-ID: 1020929
3 Beiträge
Anzeige
Solver ValueOf:=variable Zelle
S.

Hallo zusammen,
ich habe mir mit dem Makrorekorder einen Solver aufgezeichnet, den ich jetzt modifizieren will. Alles klappt prima, solange der ValueOf:= eine Zahl in Klammern enthält. Sobald ich eine variable Zelle (z. B. Cells(1,1) oder "$A$1") angebe, wird das Makro zwar ausgeführt, es e...
19.11.2008 16:57:00
Thread-ID: 1026112
2 Beiträge
Anzeige
Solver-Funtion VBA
Uwe

Hallo,
ich möchte gern mit der Solverfunktion einen Wert errechnen. In dem Feld "ValueOf" kann jedoch nur ein fester Wert angegeben werden. Ich möchte jedoch einen Bezug zu einer Zelle. Dies scheint aber wohl nicht zu funktionien.
folgendes Makro habe ich z.Zt.:
Sub Solvertest() s...
04.12.2008 14:21:11
Thread-ID: 1030177
2 Beiträge
Verwirrungen beim Solver
Stephan

Hallo zusammen,
ich versuche, eine Solver-Routine mittels eines Buttons zu starten. Der Button ist jeweils auf zwei separaten Tabellenblättern positioniert. Leider funktioniert die Berechnung nur dann einwandfrei, wenn auch die Ergebnisse auf dem Tabellenblatt ausgegeben werden, auf dem die...
09.02.2009 11:23:22
Thread-ID: 1048597
7 Beiträge
SOLVER Verweis
Peter

Hallo,
wie kann man in EXCEL 2007 den Verweis auf den Solver setzen? So wie bei EXCEL 2003 geht es ja leider nicht mehr.
14.03.2009 17:05:08
Thread-ID: 1060202
4 Beiträge
Solver automatisieren
Daniel

Hallo zusammen
ich habe folgendes Problem:
ich möchte mit Hilfe des Solvers den Wert in Spalte 1 so ändern, dass in Spalte 2 ein bestimmer Wert steht. So klappt das auch ganz gut, aber ich möchte das nun für beliebig viele Zeilen automatisieren, ohne für jede Zeile einzeln den Solver au...
05.05.2009 01:19:36
Thread-ID: 1072938
4 Beiträge
Solver-Dialog öffnet sich nicht
Lars

Hallo,
ich habe in einer Excel-Datei ein Solver-Problem aufgesetzt. Den Solver steuere ich über VBA. Das funktioniert auch tadellos. Jedoch lässt sich der normale Solver-Dialog nicht mehr öffnen. Das Solver-problem ist richtig gespeichert (Ausgabe mit SolverSave) und kommt auch zu richtigen...
07.05.2009 10:24:00
Thread-ID: 1073522
2 Beiträge
Umgehung eines nicht lösbaren Solver-Problems
Hoof

Hallo liebe Herber-Gemeinde,
ich stehe vor folgendem Problem:
Ich habe ein nicht konvergentes Solver-Problem mit 16 veränderbaren Zellen. Ich möchte eine vorgegebene Zielzelle maximieren. Der Solver schafft dies nicht, da es keine konstanten Zusammenhänge zwischen den veränderbaren Zell...
08.05.2009 11:51:42
Thread-ID: 1073850
11 Beiträge
Solver-Frage
MBorn

Hallo am Sonntag,
ich habe so oft ähnliche Problemstellungen, wie diese und glaube, das müßte
mit dem Solver doch gut zu lösen sein. Aber die Tutorials oder die Filmchen bei
Yolutube helfen mir nicht weiter. Vielleicht weiß einer von Euch Rat?

Die Frage ist, welche Werte in...
07.06.2009 16:52:38
Thread-ID: 1079723
3 Beiträge
Problem mit Solver
Stefan

Hallo,
ich hab ein problem mit dem Solver. Ich habe mir ein Makro geschrieben, in dem eine Solverberechnung eingebunden ist. Das funktioniert auch ohne Probleme. Jetzt habe ich aber auf einem Tabellenblatt zweimal dieses Makro eingebunden (mit Buttons zum Starten des Makros,usw.). Die Makro...
18.06.2009 14:16:46
Thread-ID: 1082591
3 Beiträge
Solver Probleme
Reinhard

Hallo Wissende,
in A1 steht =B1+C1
im Add-In manager habe ich Solver mitaktiviert.
Dann ein Makro aufgezeichnet und den Solver angeklickt.
Im Fensterchen (Solver-Parameter) habe ich dann Zielzelle A1 eingetragen, als Zielwert "Wwert" angehakt und 100 eingegeben.
Als "verände...
11.07.2009 22:11:02
Thread-ID: 1087926
6 Beiträge
Solver - Makro aufgezeichnet, lässt sich nicht abs
u_hoernchen

habe über Makro Aufzeichnen die Benutzung des Solvers aufgezeichnet. Der Code sieht dann aus wie folgt.
SolverOk SetCell:="$K$39", MaxMinVal:=3, ValueOf:="0", ByChange:="$K$16"
SolverSolve
Beim Abspielen hängt er sich dann allerdings bei "SolverOK" auf und sagt "Sub oder Function n...
20.07.2009 13:09:09
Thread-ID: 1089960
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige