Solver Makro bei Blattschutz

[Smily1981]

Hallo


Ich habe mittels VBA ein kleines Solver Makro geschrieben, das Makro funktioniert prima jedoch sobald der Blattschutz aktiv ist tut sich nichts.
Es kommt aber auch keine Fehlermeldung, das Makro dürfte ausgeführt werden da auch in der Solver History die Nebenbedingungen aufgezeichnet werden.
Ich habe auch versucht die Zelle welche vom Solver genändert werden nicht zu sperren ebenso habe ich versucht mittels Befehl im Marko den Blattschutz aufzuheben jedoch alles ohne Erfolg.

Hier der Code mit meinen Versuchen

Sub solver()

'
' solver Makro
'
'
    'ActiveSheet.Unprotect Password:="test"
    'ActiveSheet.Protect Userinterfaceonly:=True
    SolverOk SetCell:="$F$18", MaxMinVal:=3, ValueOf:=39.9, ByChange:="$M$6", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    'SolverOk SetCell:="$F$19", MaxMinVal:=3, ValueOf:=39.9, ByChange:="$D$17", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverAdd cellRef:="$M$6", relation:=1, FormulaText:="$A$16"
    'ActiveSheet.Protect Password:="test "
SolverSolve UserFinish:=True
End Sub


Lg,
Karl

[schauan]

Hallo Karl,
...und wenn Du Protect vor End Sub setzt ...?