Solver
06.11.2016 12:43:14
Chris
ich hoffe mir kann jemand helfen udn zwar stehe ich vor folgendem Problem
und zwar ist es so das ich in VBA einen einfachen code zum kopieren eines bestimmten bereiches erstellt habe -
With Worksheets(3)
Range(Cells(10, 12), Cells(31, 12)).Value = .Range(.Cells(2, 9), .Cells(23, 9)).Value
End With
Else
MsgBox "Das Zielblatt darf nicht Quellblatt sein" & vbLf & "bitte aktivieren Sie das Zielblatt"
End If
If ActiveSheet.Index 1 Then
With Worksheets(4)
Range(Cells(11, 6), Cells(31, 6)).Value = .Range(.Cells(8, 15), .Cells(28,15)).Value
End With
bzw für später einen Solver aus einem Makro heraus gelesen habe
SolverOk SetCell:="$AF$10", MaxMinVal:=2, ValueOf:=0.00000001, ByChange:= _
"$L$10:$L$31", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$AF$10", MaxMinVal:=2, ValueOf:=0.00000001, ByChange:= _
"$L$10:$L$31", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
dies passiert alles im Tabellenblatt 3
wie man sieht handelt es sich immer um 21 bzw 22 werte
nun möchte ich das aber dynamisch anpassen das wenn ich z.b. im Tabellenblatt 1
in der zelle D8 das er das rechnet was oben steht
jedoch wenn in D8 z.b. eine 41 steht soll er das berechnen
SolverOk SetCell:="$AF$10", MaxMinVal:=2, ValueOf:=0.00000001, ByChange:= _
"$L$10:$L$51", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$AF$10", MaxMinVal:=2, ValueOf:=0.00000001, ByChange:= _
"$L$10:$L$51", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
wäre es ja nur in excel hätte ich mit einer indirektformel gearbeitet aber das klappt nicht so wie gedacht
hoffe mir kann da jemand weiter helfen