---

wasserbau-bild.gif

Hallo

Ich habe folgendes Problem und zwar:

H54 soll immer 1,05 sein. Trotzdem muss die Formel dafür eingehalten werden. Deshalb habe ich nach einer Datenänderung bisher eine Zielwertsuche gemacht (mit Ziel auf B54). Ich hätte aber gerne, dass dies automatisch geschieht. Kann ich die Zielwertsuche in eine Formel z.B. in H54 einbauen? - Oder gibt es vielleicht eine andere Lösung? C49 muss als Eingabefeld erhalten bleiben. Hab die Tabelle mal jpg drangehangen. Exceldatei gibt es natürlich auf Wunsch :-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

wasserbau.xls.txt

Versuch das mal so mit dem Dateianhang... ;-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

mit ALT&11 in dein VBA-Projekt wechseln, dort Tabelle 1 anklicken und untenstehendes einfügen ;-)

Code:

---

Private Sub Worksheet_Change(ByVal Target As Range)
Range("B54").Value = 9 'erzwinge Wert ) ;-)
If Range("H54") <> 1.05 Then Range("H54").GoalSeek Goal:=1.05, ChangingCell:=Range("B54") 'die Zielwertsuche
End Sub

---

eventuell noch Zelle H54 auf  2 Dezimalzeichen formatieren, 1,0490 sieht bisserl merkwürdig aus ;-)

[Diese Nachricht wurde von Thomas Harmening am 02. Aug. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Super! - Danke schön! Klappt wunderbar!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

gibt es auch die Möglichkeit den errechneten Wert auf eine Ganzzahl (ohne Komma) rechnen zu lassen?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP