Excel VBA bei neg. Werten weitersuchen
08.06.2020 21:23:03
Mira
ich hoffe es kann mir jemand helfen.
Ich habe ein Makro (VBA), bei dem die Zielwertsuche benutzt wird.
Die Zielwertsuche soll mir aber keine negativen Werte ausgeben, sondern weitersuchen wenn der Wert negativ ist.
Das hier ist das Makro:
Public Function Zielwert()
Const iMax = 6 + 1 'Anzahl der Zeilen, die der Solver durchlaufen soll
Dim i As Long
For i = 2 To iMax
If i Mod 100 = 0 Then DoEvents
Range("K" & i).GoalSeek Goal:=0, ChangingCell:=Range("J" & i)
Application.StatusBar = "Goalseek arbeitet an Zeile " & i & " von " & iMax & " Zeilen in _
Sheet " & Z & " von " & zMax & ""
Next i
End Function
Also in Zelle J soll quasi weitergesucht werden, bis ein positiver Zielwert da ist.
Ich hoffe man versteht was ich meine.
Vielen Dank im Voraus und viele Grüße