Print side | Luk vindue

Målsøgning...

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=517
Udskrevet den: 12.Dec.2024 kl. 21:01


Emne: Målsøgning...
Besked fra: RFJ-86
Emne: Målsøgning...
Posteringsdato: 05.Nov.2011 kl. 18:32
Nogen der kan hjælpe mig med at finde fejlen i denne makro:

Den siger:

fejl på kørselstidspunktet: '1004':

Referencen er ugyldig.

Sub For_to()
'
' For_to Makro
'

'
    Range("B26").GoalSeek Goal:=0, ChangingCell:=Range("A26")
    SolverOk SetCell:="$B$10", MaxMinVal:=1, ValueOf:=0, ByChange:="Ligevægt_P", _
        Engine:=2, EngineDesc:="Simplex LP"
    SolverSolve userFinish:=True
    Sheets("Uddata").Select
End Sub


Print side | Luk vindue