|
Heyho,
ich habe ein kleines Problem mit einer vba Schleife:
Sub Prozent()
Dim min As Double
Dim max As Double
Dim mean As Double
min = 165
max = 389
While (Range("D60").Value) - (Range("C60").Value) < 1
mean = (max - min) / 2
Range("A13").Value = mean
If Range("D60").Value > Range("C60").Value Then
min = mean
Else
max = mean
End If
Wend
MsgBox "Ergebnis: " & Range("E9")
End Sub
In Zelle E9 kann ein Wert zwischen 165 und 389 eingegeben werden, dadurch berechnet sich über eine zusätzliche Datenbank (über mehrer Zwischenzellen und vielfachen Wenn-Dann-Funktionen) letztlich Zelle C60.
Ich will Excel jetzt vorgeben, dass wenn ich in die nebenstehende Zelle (D60) den SOLL-Wert für die Zelle C60 händisch eingebe, dass er mir von Zelle E9 ausgehend solange die Schleife durchläuft, bis der Wert in Zelle C60 und D60 < 1 abweicht.
Meine Schleife läuft aber endlos durch :(
Was mache ich falsch? oder gibt es einen ganz anderen, viel besseren Lösungswegs?
Danke, mfg
Peter
|