Zielwertsuche - Zeilenweise
05.11.2017 01:26:46
Mike
komme mit folgenden Makro für die Zielwertsuche über mehrere Zeilen leider nicht weiter.
Es wird immer der Fehler "der Bezug ist ungültig" angezeigt.In der Spalte AG und AF steht ein Prozentwert. AG enthält die Zielmarge und in AF steht die aktuelle Marge und in M steht der aktuelle Preis. Die Zielwertsuche soll in M den Preis bei einer 7 % Marge suchen.
Sub x()
Dim i As Long
For i = 4 To Cells(Rows.Count, 1).End(xlUp).Row
Application.StatusBar = "Suche Zielwert in Zeile: " & i
Cells(i, "M").GoalSeek Goal:=Cells(i, "AG").Value, ChangingCell:=Cells(i, "AF")
Next i
Application.StatusBar = False
End Sub
Mike