Hallo,
ich versuche eine dynamische Trendlinienformel aus einem Diagramm auszulesen, die Variablen zu ersetzen, und dann automatisch mit dieser Formel weiterzurechnen. Als Excel-VBA-Neuling habe ich mir mal über die Makroaufzeichnen-Funktion geholfen. Das Kopieren und ersetzen funktioniert auch so weit, lediglich verwendet mir das Excel immer die ursprüngliche alte Formel, auch wenn sich die Trendlinie bereits geändert hat. Ich habe dann versucht nach dem Ersetzen der Variablen den ganzen Ausdruck in einem String zu speichern weiß aber nicht, ob dies der richtige Ansatz ist.
Siehe unten im Listing die letzten beiden Zeilen.
Schon mal danke für eure Hilfe.
Sub AuslesenPfePrb()
'
' AuslesenPfePrb Makro
'
'
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"
End Sub |