Nach Solver Probs mit Select+Range-Methode
13.05.2003 18:18:23
Martin
Nachdem ein Makro mehrere Solverberechungen durchgeführt hat, möchte ich den Wert ein ein anderes Sheet als Wert kopieren. Leider bekomme ich trotz dieses einfachen Makros ständig eine Fehlermeldung, dass die Select.Range-Methode nicht durchgeführt werden kann.
Sheets("Valuation").Select
SolverOk SetCell:="$c$297", MaxMinVal:=3, ValueOf:="0", ByChange:="$c$296"
SolverSolve userFinish:=True
Sheets("Help").Select
Range("E27").Select
Selection.Copy
Range("F27").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Valuation").Select
Kann mir bitte jemand helfen??
Schönen Dank!
Gruß
Martin