|
Hallo VBA-Experten,
ich würde gerne die Veränderung zu einem Wert mit VBA lösen --> Formel: =(Neuer Wert/Referenzwert-1)*100
Ich habe z.B. in Zelle B3 einen Referenzwert (sagen wir 10) und ab Zelle B3 gibt es unterschiedliche Werte (C3=20 , D3=30, E3=80, F3=90...) mit denen ich die Veränderung feststellen möchte.
Das ganze soll dann in einer darunterliegenden Zelle ausgeben werden (sagen wir C38, D38, E38...)
Im Klartext sieht das so aus:
C38=(C3/B3-1)*100
D38=(D3/B3-1)*100
E38=(E3/B3-1)*100
...
Ich habe schon zudem bereits ein Makro, nur leider kann das Makro nur die Veränderung von 2 Zellen bearbeiten. Hierzu noch der Programm-Code (vielleicht ist er hilfreich oder Ihr könnt es erweitern):
Sub TestBerechnung()
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)
'var3.Formula = (var1.Formula / var2.Formula - 1) * 100
myString = Replace(myFormula, "aAddi", var1.Address)
myString = Replace(myString, "lAddi", var2.Address)
myString = Replace(myString, "$", "")
var3.Formula = myString
End Sub
Ich wäre aber auch schon zufrieden, wenn ich das ganze mit Excel lösen könnte. VBA wäre "nice to have" aber nicht unbedingt erforderlich.
Vielen Dank vorab.
|