Makro zur Zielwertberechnung versch. Varianten

Hallo liebe Leute,
ich habe folgendes Problem: Ich habe eine Berechnungstabelle und eine Wertetabelle (x und gesuchte y-Wert). Etwa so:
Zielzelle
2500 (x mal y mal Konstante)
Y-berechnet
50
X-aus der Werrtetabelle
1
Konstante
50
Wertetabelle
X-Wert : Y-Wert
1
10
20
30
40
50
Ich möchte, dass das Makro den Wert x1 in die Berechnungszelle (X-berech.)kopiert, dann eine Zielwertsuche in der Zielzelle durchgeführt wird (Zielwert 2500, veränderbare Zelle (Y)) Bei X1 = 1 wäre das also 50. Dann soll dieses Ergebnis in die Wertetabelle eingetragen werden. Dieser Vorgang sollte, im optimalen Fall automatisch, mit anderen X-Werten fortgesetzt werden, so dass ich am Ende zu jedem x auch ein errechneten y-Wert erhalte.
Kann mir jemand bei dieser Aufgabe helfen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andreas,
erstmal vielen Dank für die schnelle Antwort. Aber das Problem ist etwas komplizierter. Ich habe versucht die Aufgabe etwas zu vereinfachen, da es relativ schwer ist, alles zu beschreiben. Die angegebene Konstante ist eigentlich eine Berechnungstabelle mit vielen Nebenbedingungen. Folgendes möchte ich erreichen. Die x WErrte können in meinem Beispiel variieren. Wenn sich x ändert, verändert sich auch die Zielzelle. Diese darf sich aber nicht verändern, so dass ich mit einer Zielwertsuche die Zielzelle wieder auf ihren ursprungswert rechne indem ich y als veränderbare Zelle verwende. Dadurch verändert sich y . Diese(n) wert/werte möchte ich in einer Tabelle darstellen. Ich habe versucht ein Makro aufzuzeichnen:
'
ActiveCell.Select
Selection.Copy
Range("E7").Select
ActiveSheet.Paste
Range("C16").Select
Application.CutCopyMode = False
Range("C16").GoalSeek Goal:=8000, ChangingCell:=Range("C7")
Range("C7").Select
Selection.Copy
ActiveCell.Offset(0, 11).Range("A1").Select
ActiveSheet.Paste
Allerdings vervollständigt dieses Makro nicht meine Tabelle sondern überschreibt einfach immer den neu berechneten y-Wert.
Ich glaub das ist wirklich schwer zu verstehen, aber vielleicht klappts ja. Ich kann leider nicht die Tabelle hochladen, da sie Firmen Know-how enthält. Morgen habe ich etwas mehr zeit vielleicht kann ich es dann mit einem Beispiel hochladen. Für Antworten bin ich trotzdem dankbar.

Private Sub GetResults_Click() SaveMe = ActiveSheet.Cells(2, 5).Value For i = 2 To 12 With ActiveSheet .Cells(2, 5) = .Cells(i, 11) .Cells(5, 3).GoalSeek Goal:=.Cells(9, 4), ChangingCell:=.Cells(2, 3) .Cells(i, 12) = .Cells(2, 3) End With Next i ActiveSheet.Cells(2, 5) = SaveMe End Sub

Private Sub GetResults_Click() SaveMe = ActiveSheet.Cells(2, 5).Value SaveMe = ActiveSheet.Cells(2, 3).Value For i = 2 To 12 With ActiveSheet .Cells(2, 5) = .Cells(i, 11) .Cells(5, 3).GoalSeek Goal:=.Cells(9, 4), ChangingCell:=.Cells(2, 3) .Cells(i, 12) = .Cells(2, 3) End With Next i ActiveSheet.Cells(2, 5) = SaveMe ActiveSheet.Cells(2, 3) = SaveMe End Sub

Private Sub GetResults_Click() SaveMe1 = ActiveSheet.Cells(2, 5).Value SaveMe2 = ActiveSheet.Cells(2, 3).Value For i = 2 To 12 With ActiveSheet .Cells(2, 5) = .Cells(i, 11) .Cells(5, 3).GoalSeek Goal:=.Cells(9, 4), ChangingCell:=.Cells(2, 3) .Cells(i, 12) = .Cells(2, 3) End With Next i ActiveSheet.Cells(2, 5) = SaveMe1 ActiveSheet.Cells(2, 3) = SaveMe2 End Sub

Beliebteste Forumthreads (12 Monate)

Makro zur Zielwertberechnung versch. Varianten

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread