Makro Zielwertsuche
13.09.2013 16:58:05
David
das zu lösende problem ist folgendes.
die differenz zwischen zwei zahlen (A1 und A2)muss ausgeglichen werden. dabei soll die zahl, die größer ist (A2), verringert werden.
Die Zusammensetzung aus A2 besteht unter anderem aus A5.
A5 berechnet sich aus einer harten Zahl (A3) und einem Prozentsatz (A4). Um also A2 zu verringern muss lediglich der Prozentsatz A4 verringert werden. Die Höhe um die sich A4 ändern soll muss also mit der zielwertsuche gemacht werden. der zielwert (A5) ist A3 abzüglich der differenz aus A1 und A2. der zu verändernde wert ist A4. und die zelle in der der neue Prozentsatz eingetragen werden soll ist A6.
dabei soll per knopfdruck in dem sheet der makro zielwertsuche betätigt werden um dann den neuen prozentwert zu sehen mit dem gilt: A1=A2
dafür habe ich folgenden makro:
Sub Zielwertsuche()
ThisWorkbook.Sheets("1").Activate
Range("A6").GoalSeek Goal:="A5", ChangingCell:=Sheets("Verprobung").Range("A4")
End Sub
würde mich über jede hilfe freuen
gruß
dave
Anzeige