SeriesCollectien Values zuweisen (XYDiagramm)
02.11.2005 15:20:32
Maike
ich habe ein kleines Problem, bei dem ich einfach nicht dahinterkomme ( manchmal habe ich das gefühl Excel will mich ärgern)
Und zwar habe ich untere Funktion einem Menüpunkt hinterlegt.
Das Berechnen der Leistung aus Spalte A ( Drehzahl) und Spalte B ( Drehmoment) klappt auch wie gewollt.
Bei der Festlegung der Values-Eigenschaft des Series Objektes( wie es die Fehlermeldung so schön sagt) tritt dann anscheinend ein Fehler auf.
An Fehlenden Werten in Spalte 4 liegt es vermutlich nicht, ich habe extra kontrolliert, ob sie korrekt ausgefüllt sind
Warum werden die x-Werte korrekt zugewiesen, die y-Werte aber nicht?
Ich habe diese Befehle bei vorigen Reihen ähnlich benutzt. Da hat es geklappt!?
Kann mir da jemand netterweise heraushelfen?
Sub Kennlinie_Leistung()
Sheets("Höchstwerte").Activate
v_letzteZeileHöchst = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
'Formel zur Berechnung der Leistung
ActiveSheet.Range("D2").FormulaR1C1 = "= RC[-3]/60 * RC[-2] * 6.28/1000"
' in spalte D Werte für leistung eintragen
Range("D2").AutoFill Destination:=Range(" D2 : D" & v_letzteZeileHöchst), Type:=xlFillDefault
Sheets("Motorkennfeld").Activate
ActiveChart.SeriesCollection.NewSeries
With ActiveChart.SeriesCollection(i_k + 1)
.Name = "Leistungskurve"
.XValues = " = 'Höchstwerte'!R2C1:R" & v_letzteZeileHöchst & "C1"
.Values = " = 'Höchstwerte'!R2C4:R" & v_letzteZeileHöchst & "C4"
.Border.Weight = xlThin
.Border.LineStyle = xlAutomatic
.Border.ColorIndex = 3
.MarkerStyle = xlNone
End With
End Sub
Danke
Gruß Maike