...tut nicht: activecell.formula = ".."
Axel
Bin etwas am verzweifeln: ich hole mir in einem Diagramm aus einer Trendlinie die Gleichung des Polynoms und möchte diese Gleichung per Makro so umschreiben, dass sie direkt im Sheet verwendbar ist.
BEISPIEL:
3,27077E-20x6 - 4,15043E-16x5 + 2,10623E-12x4 - 5,33574E-09x3 + 6,41427E-06x2 - 6,54192E-04x + 2,91027E+01
wird per Makro zu
3,27077*10^-20*P7^6 - 4,15043*10^-16*P7^5 + 2,10623*10^-12*P7^4 - 5,33574*10^-9*P7^3 + 6,41427*10^-6*P7^2 - 6,54192*10^-4*P7 + 2,91027*10^1
Funktioniert prima, die umgeschriebene Formel steht in der richtigen Zelle. Setzte ich manuell ein "="-zeichen davor, arbeitet sie.
PROBLEM: Versuche ich die (ohne das manuel vorgesetzte "="-Zeichen) Formel per Makro hineinzusetzen (also inkl "="), die Hilfe bietet diesen Code dafür an: "Worksheets("Sheet1").Range("A1").Formula = "=$A$4+$A$10", dann gibt er den Error "Application defined or object defined error" aus.
ich hoffe, ihr habt gute vorschläge.
beste grüße,
axel
Sub Macro1()
ActiveCell.Replace What:="E", Replacement:="*10^", LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
ActiveCell.Replace What:="x ", Replacement:="x1", LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
x = InputBox("Zelle für x-Werte")
x = "*" & x & "^"
ActiveCell.Replace What:="x", Replacement:=x, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _
_
False, SearchFormat:=False, ReplaceFormat:=False
ActiveCell.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase: _
_
=False, SearchFormat:=False, ReplaceFormat:=False
frml = "=" & ActiveCell
'beispiel-gleichung, die er nicht schluckt, die aber unter "frml" eingelesen ist, bevor er _
unter der letzten codezeile in error geht:
' "=3,27077*10^-20*P7^6 - 4,15043*10^-16*P7^5 + 2,10623*10^-12*P7^4 - 5,33574*10^-9*P7^3 + 6, _
_
41427*10^-6*P7^2 - 6,54192*10^-4*P7 + 2,91027*10^1"
ActiveCell.Formula = frml
End Sub
Anzeige