Solver über Makro laufen lassen
04.11.2003 09:44:06
Jan
ich würde gerne den Solver per Makro ausführen. Leider gibt dieses mir immer einen Fehler in der einen Zeile (siehe Pfeil). Ihm fehlt wohl eine Deklaration. Leider habe ich kaum Ahnung von VBA.
mfg
Jan
Sub SolverMakro()
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("GuV").Select
Range("O129").Select
=> SolverOk SetCell:="$C$137", MaxMinVal:=1, ValueOf:="0", ByChange:= _
"$D$131:$X$131"
SolverSolve
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Eingabe Werte").Select
Range("D61").Select
End Sub