ich verwende folgendes Makro für eine Zielwertsuche:
Sub Zielwertsuche()
Dim Mldg1, Titel1, Wert1
Mldg1 = "Bitte die Umlage eintragen. Die zugehörige Umlagestückzahl wird errechnet."
Mldg2 = "Bitte die Anzahl der Umlagejahre angeben."
Titel1 = "Zielwert für Umlage"
Titel2 = "Umlagejahre"
Wert1 = InputBox(Mldg1, Titel1)
Wert2 = InputBox(Mldg2, Titel2)
If IsNumeric(Wert1) Then
AddIns("Solver").Installed = True
With Application
.Iteration = True
.MaxIterations = 32767
.MaxChange = 0.000001
End With
Range("B34").GoalSeek Goal:=CDbl(Wert1), ChangingCell:=Range("B29")
'Ergebniszelle => Range("B34").goalseek
'Zielwert => Goal:=Wert1
'Variable Zelle => ChangingCell:=Range("B29")
End If
If IsNumeric(Wert2) Then
Range("B15") = Wert2
End If
End Sub
Das Makro funktioniert, nur wird der eingegebene Wert erst bei dem 2. Durchlauf genau erreicht. Wie kann ich das Makro mit dem Wert aus der Inputbox automatisch ein 2. mal durchlaufen lassen? Das Ergebnis ist ansonsten etwas unbefriedigend weil zu ungenau.
Vielen Dank für eine Rückmeldung.
Gruß
Ralf