ich habe einen kurzes Listing verfasst, welches aber nur die Formel in
die Zellen schreibt und nicht rechnet bzw immer die selbe Formel in mein "Range" schreibt. Mein Ziel war eigentlich die Formel direkt rechnen zu lassen und den Zeilenindex um 1 zu erhöhen.
Die Bezugsdaten für die Rechnung stehen bereits in den Zellen und wenn die Formel reingezogen wird müsste es eigentlich direkt losrechnen, aber das passiert nicht. Desweiteren wird der Zeilenindex von F6:AD6 nicht automatisch um 1 erhöht auf E7:AD7 ;E8:AD8;... usw.
Kann mir bitte jemand helfen?
Sub Schaltfläche7_Klicken()
Dim form As Variant
For Each form In Range("E6:E60")
Range("E6:E60").FormulaLocal = " =WENN(ISTFEHLER(MODUS.EINF(Ziel_Pivot!F6:AD6));"";MODUS.EINF( _
Ziel_Pivot!F6:AD6))"
Next
MsgBox ("Calculation refreshed"), vbOKOnly
End Sub
Viele Grüße