|
Hallo,
ich würde gerne einem Diagramm die zugehörigen X-Werte zuweisen und 2 Reihen (Y-Werte) zuweisen.
In Spalte A stehen die X-Werte, in Spalte B und C die beiden Reihen (Y-Werte). In Zeile 2 stehen die Überschriften. Ich bekomme das nur hin wenn ich die Source über den gesamten Spaltenbereich definiere (Spalte A,B,C). Ist das so korrekt oder kann man das anders / weniger fehleranfällig machen? Ich möchte den X- und Y-Werten des Diagramms die zugehörigen Spalten zuweisen und nicht die Source über die 3 Spalten ziehen.
Vielen Dank für die Hilfe im voraus!!
Sub t()
Dim maxWxAxe As Integer
Dim c As Chart
Dim ca As Axis
Dim i As Integer, endzeile As Integer
'ermitteln letzte volle Zelle
For i = 3 To 28
If (ActiveSheet.Cells(i, 1) = "") Then Exit For
Next i
i = i - 1
endzeile = i
maxWxAxe = Application.WorksheetFunction.Max(ActiveSheet.Range(Cells(2, 1), Cells(i, 1)))
Set c = ActiveSheet.ChartObjects(1).Chart
c.SetSourceData Source:=ActiveSheet.Range(Cells(2, 1), Cells(i, 3))
Set ca = c.Axes(xlCategory)
With ca
.MinimumScale = 0
.MaximumScale = maxWxAxe
.MajorUnit = 1
End With
Set c = Nothing
Set ca = Nothing
|