Office: (Office 2010) Zielwertsuche automatisieren

Hallo,

ich habe eine Frage zur Zielwertsuche.
Angenommen ich habe in tabelle1 Zelle A1 eine Wert stehen
diesen "übergebe ich in Tabelle 2 und berechne verschiedene Sachen
muss dort als letztes eine Zielwertsuche durchführen und erhalte ein Ergebnis.
Dieses Ergebnis soll dann in Tabelle 1 angezeigt werden.

Momentan hab ich dass durch ein Makro gelöst, welches die Schritte einschließlich der Zielwertsuche durchführt.
Das Makro hab ich dann mit einer Schaltfläche verknüpft. Wird diese angeklickt durchläuft das Makro alle Schritte und ich bekomme mein Ergebnis.
Wird das vergessen, steht noch das falsche Ergebnis von vorher da, da die Zielwertsuche nicht "automatisch" rechnet.
Wie kann ich das verbessern?

gruss alex

:)

 

Mach doch aus Deiner Zielwertsuche eine Funktion, die das Ergebnis zurück gibt. Dann kannst Du die Zielwertsuche als Formel in einer Zelle verwenden. So greift die automatische Berechnung.

Beispiel im Anhang.

 

Ich bräuchte bitte Hilfe zu dem gleichen Thema, allerdings für:
1. OS High Sierra
2. Office 365 für den Mac

Mit dem Makrorekorder habe ich die Zielwertsuche abgespeichert.

Range("C10").GoalSeek Goal:=0.5, ChangingCell:=Range("B4")

Leider startet das Makro aber nur auf Anforderung und ich möchte eine automatische Ausführung, sobald entweder der Wert in C10 0,500 ist oder alternativ in C4 ein neuer Wert eingetragen wird.

Auf dem Mac läuft anscheinend nur eine abgespeckte Version von VBA, weshalb die im Netz gefundenen Lösungen alle nicht funktionierten.

Private Sub Worksheet_Calculate()
Range("C10").GoalSeek Goal:=0.5, ChangingCell:=Range("B4")
End Sub

klappt auch nicht.