ich habe ein kleines Makro, welches den Solver aufruft und 10 Zeilen durchläuft. Das Problem dabei ist, dass nach jeder Berechnung vom Solver ein Fenster angezeigt wird, dass ein Ergebnis gefunden wurde und ob ich es verwenden möchte. Ich habe aber eigentlich circa 1000 Zeilen und möchte an dieser Stelle erfragen, ob es einen Befehl gibt, der mir dieses "OK" drücken abnimmt?
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 10
SolverOk SetCell:=Cells(i, 2), MaxMinVal:=3, ValueOf:=9 + i, ByChange:=Cells(i, 1)
SolverSolve
Next i
End Sub
Vielen Dank und viele Grüße,
Frank