AW: Mathematische Formel in VBA
28.10.2009 10:12:56
JogyB
Hi.
Ja, bin natürlich noch da ;)
Hatte das doppelt geschickt, da ich dachte, ich hätte vergessen das abzuschicken.
Probier mal den Code:
Private Sub CommandButton1_Click()
Dim myChart As Chart
Const diagName = "Diag Temperaturdaten" ' den hier anpassen
' Formel in V379 bzw. W379 bis Ende löschen
Range(Cells(379, 22), Cells(Rows.Count, 22).End(xlUp)).ClearContents
Range(Cells(379, 23), Cells(Rows.Count, 23).End(xlUp)).ClearContents
' Formel eintragen
With Range(Cells(379, 21), Cells(Rows.Count, 21).End(xlUp))
.Offset(0, 1).FormulaR1C1 = _
"=R149C3+(R148C3-R149C3)*EXP((-RC[-1]" & _
"*60*R151C3*R154C3*R159C3)/(R152C3*R153C3*R158C3))"
.Offset(0, 2).FormulaR1C1 = "=RC[-1]-273.15"
' Testen, ob das Diagramm schon vorhanden ist
On Error Resume Next
Set myChart = Sheets(diagName)
' Wenn nicht, dann erzeugen
If Err.Number 0 Then
Set myChart = Charts.Add
With myChart
.Name = diagName
.ChartType = xlXYScatterSmooth
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Zeit / min"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "T / °C"
End With
End If
myChart.SetSourceData Source:=Union(.Offset(0, 0), .Offset(0, 2)), PlotBy:=xlColumn
myChart.SeriesCollection(1).Name = "=""Daten""" ' Mußt Du hier halt so benennen, wie Du _
es willst
End With
End Sub
Gruss, Jogy