VBA Zielwert Suche - Erweiterung
12.06.2019 12:50:51
Mike
ich benötige Hilfe bei der Erweiterung des folgenden Makros.
Sub myGoalSeek()
Dim i As Long
Dim LRow As Long
Dim myGoal As Integer
With ActiveSheet
LRow = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 3 To LRow
.Range("BE" & i).GoalSeek Goal:=0.3005, _
ChangingCell:=.Range("BJ" & i)
Next
End With
End Sub
Die Spalte BE bezieht sich auf die Marge , die Spalte BJ - auf den EK-Preis.
Die Differenz aus dem EK - Preis und VK Preis soll nicht mehr als 20 % betragen und der EK Preis soll aber gleichzeitig eine Ziel Marge erzielen.
Ist das möglich ?
Gruß und Danke Mike