ich versuche momentan ein Makro zu erstellen, dass mir zu einem Diagramm, welches aus einer Messreihe erzeugt wird die Trendlinienformel ausließt, die Variablen ersetzt und das Ergebnis ausgibt. Da ich keine Idee hatte, wie ich das realisieren kann habe ich mal die Makroaufzeichnen Funktion genutzt. Das sieht zwar nicht schön aus, funktioniert aber mit dem kopieren. Nun tritt aber das Problem auf, dass egal welche Formel kopiert wird bei der Berechnung des Ergebnisses aber immer das Ergebnis der ursprünglich aufgezeichneten Funktion berechnet wird. Weiß jemand dazu eine Lösung? Im Anhang ein Listing des Codes.
Vielen Dank im Voraus.
Range("L10").Select
Sheets("Trennung Reib-und Eisenverlust").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Select
Range("V10").Select
Selection.Copy
ActiveSheet.Paste
Application.CutCopyMode = False
Range("V11").Select
ActiveCell.FormulaR1C1 = _
"=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(R[-9]C[-19],""x"",""*$A2^""),""^ "",),""y "",)"
Sheets("Protokoll").Select
ActiveCell.FormulaR1C1 = _
"=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE('Trennung Reib-und Eisenverlust'!RC[10],""x"",""*0^""),""^ "",),""y "",)"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "= 0.0026*0+ 196.29"