Zielwertsuche mit Input Box
Ralf
ich möchte eine Zielwertsuche mit diesem Makro in einem Tabellenblatt ausführen:
Sub Zielwertsuche()
Dim Mldg1, Titel1, Wert1
Mldg1 = "Bitte die Umlage eintragen. Die zugehörige Stückzahl wird errechnet."
Titel1 = "Zielwert für Umlage"
Wert1 = InputBox(Mldg1, Titel1)
If Wert1 = "" Then Exit Sub
Range("B34").GoalSeek Goal:=Wert1, ChangingCell:=Range("B29")
'Ergebniszelle => Range("B34").goalseek
'Zielwert => Goal:=Wert1
'Variable Zelle => ChangingCell:=Range("B29")
End Sub
Gebe ich ganze Zahlen ein, funktioniert alles einwandfrei.
Gebe ich für die Umlage z. B. 1,1 ein kommt die Fehlermeldung:
Laufzeitfehler '1004'
Die GoalSeekMethode des Range-Objektes konnte nicht ausgfeührt werden.
Woran kann dies liegen?
Vielen Dank im Voraus.
Viele Grüße
Ralf
Anzeige