Hallo Leute,
ich habe folgenden Code:
Sub Berechnung()
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)
Var3.Formula = (Var1.Formula / Var2.Formula - 1) * 100
End Sub
Mit Var1 und Var2 weise ich die Zellinhalt aus bestimmten ausgewählten Zellen zu. Var3 ist die leere Zelle, die ich auswähle. Danach soll eine Berechnung folgen. Leider kann ich Var3 nicht als Formelzelle schreiben.
Danke vorab. |