Office: Zielwertsuche ohne Änderung

Hallo Schatzi und Co!

Ich muss mich wieder mal melden - komm leider nicht weiter mit folgendem Problem:

Ich habe eine Wirtschaftlichkeitsrechnung bei der ich versch. Eingangsgrößen habe wie z.B. die Investitionssumme.

Das Ende der Berechnung stellt ein errechneter Kapitalwert dar.

jetzt möchte ich die "kritischen" Investitionskosten ermitteln - bei der der Kapitalwert 0 ist.
So gesehen mit der Zielwertsuche kein Problem ABER:
ich möchte die kritische Investitionssumme auf einem Übersichtsblatt abbilden, ohne dass die ganze Berechnung geändert wird (man gibt ja Zielzelle an, Zielwert und veränderbare - diese werden ja dann geändert wenn man auf "OK" klickt bei der Zielwertsuche). D.h. im Prinzip soll Excel die Zielwertsuche machen, ohne dass ich es irgendwie merke - es soll nur das Endergebnis dastehen.

Freu mich über Ideen!

 

Hallo!

Wenn deine Bezüge für die Zielwertsuche immer die gleichen bleiben, dann kannst du das per VBA ausführen lassen, z.B. jedesmal dann, wenn das Blatt neu berechnet wird:

Code:

Private Sub Worksheet_Calculate()
    Range("C3").GoalSeek Goal:=0, ChangingCell:=Range("C1")
End Sub

C3 ist in diesem Fall die Zielzelle, "0" ist der Zielwert und C1 ist die veränderbare Zelle.

 

Servus Schatzi,

Aber damit hab ich doch wieder das gleiche Ergebnis wie bei einer Zielwertsuche, nur das ich eben eine Art "Automatisierung" drinnen habe. Es wird ja wieder in der gleichen Zelle ausgegeben und die Werte werden verändert.

Soll ich meinen Eingangspost nochmals erläutern?

 

Ja, das wäre schön, da ich mich offensichtlich auf der falschen Fährte befinde...

 

HAb dir ein kleines Beispiel drangehängt - die Antwort ist nicht Umsatz/Stückzahl - das richtige Excelsheet ist eine Wirtschaftlichkeitsrechnung mit einigen mehr Parametern und einer Barwertrechnung - wobei ich nur über den PArameter Investitionskosten herausfinden will, wann der Barwert null ist um zu wissen wie hoch oder niedrig müssen die Investitionskosten sein um noch rentabel oder überhaupt rentabel zu sein.

 

hab noch ein besseres Beispiel gebastelt - da kannst du es besser nachvollziehen!

 

Hallo!

Die Ziewertsuche braucht eine VERÄNDERBARE Zelle.
Sie kann also nicht funktionieren, wenn die Ausgangszelle konstant bleiben soll.
Dazu müsstest du per VBA den Wert aus B7 in einer Variablen zwischenspeichern, dann die Zielwertsuche ausführen lassen und schließlich den Wert aus der Variablen wieder in die Zelle zurück schreiben lassen.

Wenn Excel dein Friseur sein soll, musst du ihm auch erlauben, die Schere zu benutzen... :mrgreen:

 

schon verstanden ;-) - hast eine Formel auch für mich, wie ich die Variable abspeichere?!?

 

Hallo!

Im Beispiel "Zielwert_besser.xls" klappt bei mir nun dieser Code:

Code:

Private Sub Worksheet_Calculate()
Dim x As Double
Application.EnableEvents = False
x = Range("B6").Value
Range("B24").GoalSeek Goal:="0", ChangingCell:=Range("B6")
Range("B30") = Range("B6")
Range("B6") = x
Application.EnableEvents = True
End Sub

 

Servus Schatzi!

Super - funktioniert perfekt - Vielen Dank, auf dich ist Verlass!

Sag mir nur noch eines:

Range("B30") = Range("B6")

Wie lautet der Befehl wenn sich die Zelle B6 in einem anderen Blatt befindet?!?

 

weil das hier funktioniert komischerweise nicht:

Code:

Sheets("Tabelle1").Range("B13") = Sheets("Tabelle2").Range("B13") 

hab mir mit folgendem geholfen - ist umständlich aber funzt auch:

Code:

Sub krit_InvestWert()
Sheets("Modell").Select
Dim x As Double
Application.EnableEvents = False
x = Range("E33").Value
Range("D99").GoalSeek Goal:="0", ChangingCell:=Range("E33")
Range("E33").Select
Selection.Copy
Sheets("Kennzahlen").Select
Range("F15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Sheets("Modell").Select
Range("E33") = x
Application.EnableEvents = True
Sheets("Kennzahlen").Select

  
End Sub

Wie geht die Abkürzung?!?

P.S. Seit wann verwendest du VBA ;-) :?:

 

Hallo!

Hab' gerade kein Excel zur Hand, aber mit etwas weniger selektieren müsste es auch klappen:

Code:

Sub krit_InvestWert()
Sheets("Modell").Select
Dim x As Double
Application.EnableEvents = False
x = Range("E33").Value
Range("D99").GoalSeek Goal:="0", ChangingCell:=Range("E33")
Range("E33").Copy
Sheets("Kennzahlen").Select
Range("F15").PasteSpecial Paste:=xlPasteValues
Sheets("Modell").Select
Range("E33") = x
Application.EnableEvents = True
Sheets("Kennzahlen").Select
End Sub 

 

Danke - funzioniert - spitze!

nochmal die Frage - seit wann VBA?!?

 

Hallo!

Ich glaube, VBA seit einem knappen halben Jahr.
Allerdings leider nicht sehr intensiv...