Zielwertsuche automatisch 2 x ausführen

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