Berechnung mehrerer Zeilen mit Solver
23.05.2020 17:53:41
Felix
ich bin leider kein VBA Experste aus diesem Grund habe ich folgende Frage:
Das nachfolgende Programm zeigt beim auführen als Macro immer den Fehler "Fehler beimm _
Kompiliern:
Sub oder
Function nicht definiert."
Sub Solver_Berechnung()
Dim i As Long
With Worksheets("testo")
For i = 11 To 1271
SolverOk SetCell:="$S$" & i, MaxMinVal:=3, ValueOf:=0, ByChange:= _
"$Q$" & i & ",$R$" & i & "", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
Next
End With
End Sub
Ich habe einen Solver programmiert der eine Excel-Zeile berechnet. Diesen Solver möchte ich gern noch auf weitere Zeilen in dem Programm ausführen. Dies habe ich über die Scheife versucht umzusetzen.
Das Ergebbnis soll in Spalte S angegeben werden als 0. Die Spalten Q & R sollen verändert werden. Als Nebenbedinung gilt Spalte J=Spalte Q und Spalte K = Spalte R.
Der Solver kann ich in Excel ausführen und funktioniert auch dann, nur die Ausführung als Makro gibt einen Fehler.
Hättet ihr mir hier irgendwelche Tips/Hilfestellungen? Vielen lieben Dank euch vorab dafür!!! :-)
LG
Felix
