Ich moechte per Makro den solver automtisch zellenwerteubergeben dieser soll dann rechnen und das ergebnis in einer zelle wieder ablegen.
Mit dem makro:
-----------------------------------
Sub AddINEinfuegen()
Dim ad As AddIn
Set ad = AddIns("SOLVER")
If ad.Installed = True Then
MsgBox "Solver schon installiert"
Else
MsgBox "Solver wird installiert"
ad.Installed = True
End If
Set ad = Nothing
End Sub
----------------------
kann ich ihn zumindest schon automatisch installieren.
Wenn ich dann das naechste makro aufrufe:
-----------------------------------------
Sub Solverberechne()
SolverOk(SetCell = "ZIELZELLE", MaxMinVal =2, Valueof ="0", ByChange ="ZELLENBEREICH")
SolverSolve True
End Sub
Kommt die Fehlermeldung: Fehler beim Kompilieren Erwartet =
Nehme ich die Klammerung weg:
SolverOk SetCell = "ZIELZELLE", MaxMinVal =2, Valueof ="0", ByChange ="ZELLENBEREICH"
SolverSolve True
Kommt die Fehlermeldung:
Sub und Funktion nicht definiert.
Hat hier jemand einen tipp.
Und noch ne frage:
Wie lege ich denn neben bedingungen mit codezielen fest z.b.
Das zwei zellen den gleichen wert haben muessen?
wer weiss hier einen rat?
Oder wo kann ich das alles nachlesen?
gruss
horst