Hallo MoeJoe,
das, was Du brauchst ist eine Umkehrfunktion einer Funktion, die Du nicht kennst, bzw. nicht kennen musst, um das passende Funktionsargument eines gegebenen Funktinswertes zu finden.
Gegeben ist eine Funktion, die die Cashflow eines Kaufpreises berechnet. Du möchtest aber den Kaufpreis ermitteln, der einen gegebenen CashFlow bewirkt.
Das wird in folgendem Makro mit "Zielwertsuche" zusammen mit "Datentabelle" erreicht.
Sobald Du diesen Code in das Tabelle1-Modul kopiert hast, wird Dir jedes mal, wenn Du in
G8 einen gewünschten CashFlow eingibst, in
G7 der passende Kaufpreis angezeigt.
Code:
'gehört ins Modul Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("G8"), Target) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
Range("G7").ClearContents
Range("H6").Formula = "=C8"
Range("G6:H7").Table ColumnInput:=Range("C3")
Range("H7").GoalSeek Goal:=Range("G8").Value, ChangingCell:=Range("G7")
Range("H6:H7").ClearContents
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Dabei werden die Zellen
H5 und
H6 benötigt, also übeschrieben.
Die Formel des CashFlows spielt hier keine Rolle. Es werden nur die Zelle für den Eingangswert und die Zelle mit dem Ergebnis verwendet.
Ob es eine einfachere Möglichkeit gibt, würde mich selbst interessieren.
Aber vielleicht genügt das fürs Erste.
Mit bestem Gruß,
Raoul
