Thema Datum  Von Nutzer Rating
Antwort
Rot wert mit schleife hochzählen
03.02.2015 11:44:41 andy
NotSolved
03.02.2015 15:56:00 Gast74093
NotSolved
04.02.2015 08:14:45 andy
Solved

Ansicht des Beitrags:
Von:
andy
Datum:
03.02.2015 11:44:41
Views:
652
Rating: Antwort:
  Ja
Thema:
wert mit schleife hochzählen

hallo leute... ich habe ein kleines anliegen und zwar will ich mit hilfe einer schleifen den wert hinter ValueOf:=CStr(Range("B4")) - 1, also die 1 hochzählen... bis 50... bzw die if bedingung ist vorher erfüllt dann kann das makro beendet werden... ich bekomme das einfach nicht hin... will nicht den code 50mal einfügen müssen... vielen dank schon mal für lesen...

SolverReset
    
    SolverOptions MaxTime:=20, Iterations:=100, Precision:=1E-99, AssumeLinear:= _
        False, StepThru:=False, Estimates:=1, Derivatives:=1, SearchOption:=1, _
        IntTolerance:=0, Scaling:=False, Convergence:=1E-99, AssumeNonNeg:=False
   
    SolverOk SetCell:="$C$4", MaxMinVal:=3, ValueOf:=CStr(Range("B4")), ByChange:="$O$2:$O$7"
   
    SolverAdd CellRef:="$O$2:$O$7", Relation:=4, FormulaText:="Ganzzahlig"
    SolverAdd CellRef:="$O$2:$O$7", Relation:=3, FormulaText:="0"
    SolverAdd CellRef:="$O$2:$O$7", Relation:=1, FormulaText:="=1"
   
    SolverSolve True
   
    If Sheets("Bere").Range("D4").Value = "OK" Then Exit Sub

SolverReset
    
    SolverOptions MaxTime:=20, Iterations:=100, Precision:=1E-99, AssumeLinear:= _
        False, StepThru:=False, Estimates:=1, Derivatives:=1, SearchOption:=1, _
        IntTolerance:=0, Scaling:=False, Convergence:=1E-99, AssumeNonNeg:=False
   
    SolverOk SetCell:="$C$4", MaxMinVal:=3, ValueOf:=CStr(Range("B4")) - 1, ByChange:="$O$2:$O$7"
   
    SolverAdd CellRef:="$O$2:$O$7", Relation:=4, FormulaText:="Ganzzahlig"
    SolverAdd CellRef:="$O$2:$O$7", Relation:=3, FormulaText:="0"
    SolverAdd CellRef:="$O$2:$O$7", Relation:=1, FormulaText:="=1"
   
    SolverSolve True
   
    If Sheets("Bere").Range("D4").Value = "OK" Then Exit Sub
       
End Sub


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot wert mit schleife hochzählen
03.02.2015 11:44:41 andy
NotSolved
03.02.2015 15:56:00 Gast74093
NotSolved
04.02.2015 08:14:45 andy
Solved

     

nmd runner pk adidas nmd gold adidas stan smith gold adidas stan smith billig adidas superstar