ich habe ein Sheet gebaut, dass verschiedene Werte berechnet und diese in Tabelle 4 ausgiebt. Jetzt möchte ich Zelle E6 minimieren. Dazu soll der Solver einige Gewichte ändern. Die Gewichte müssen größer Nulle sein und in der Summe 1 ergeben. Folgenden Code habe ich eingegeben:
Sub SolverSolve1()
Sheets("tabelle4").Activate
SolverOk SetCell:="$E$6", MaxMinVal:=2, ValueOf:="0", ByChange:="$E$1:$G$1"
SolverSolve
End Sub
Jetzt bekomme ich die Fehlermeldung:
"Sub oder Function nicht definiert!
Was habe ich denn falsch gemacht? Hat jemand eine Idee?
Ein weiteres Problem ist, wenn ich den Solver manuell ausführe ändert er die Gewichte nicht. Kopiere ich aber die Tabelle 4 in eine neue Mappe verändert er die Zellen. Äusserst komisch das Ganze find ich.
Danke schonmal für kommende Ideen
Andy