Sub Berechnung()
Dim var1 As Excel.Range
Dim var2 As Excel.Range
Dim var3 As Excel.Range
Const myFormula As String = "=(aAddi/lAddi-1)*100"
Dim myString As String
Set var1 = Application.InputBox(Prompt:="Aktueller Wert", Title:="1.Zelle", Type:=8)
Set var2 = Application.InputBox(Prompt:="Letzter Wert", Title:="2.Zelle", Type:=8)
Set var3 = Application.InputBox(Prompt:="Zielzelle", Title:="Zielzelle", Type:=8)
myString = Replace(myFormula, "aAddi", var1.Address)
myString = Replace(myString, "lAddi", var2.Address)
var3.Formula = myString
End Sub