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

Ansicht des Beitrags:
Von:
Gast74093
Datum:
03.02.2015 15:56:00
Views:
1363
Rating: Antwort:
  Ja
Thema:
wert mit schleife hochzählen

Hallo,

 

dafür nimmt man dann eine For-Next-Schleife.

Die Variable i wird dann von 1 bis 50 hochgezählt, und i wird dann in deiner "Formel" verwendet

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
For i=1 to 50
 
 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")) - i, 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
 
Next i      
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

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