Dynamischer Datenbereich bei X/Y-Diagramm
20.01.2006 13:31:35
Karsten
habe ein Problem mit dem Erstellen eines dynamischen Datenbereiches für ein X/Y-Diagramm. Ich möchte in der Zelle M10 die Startzeile und in der Zelle M11 die Stoppzeile für den darzustellenden Bereich angeben. Die Spalten liegen nicht nebeneinander (zB. Spalte F (X-Werte), Spalte H (Y-Werte)). Zudem kommt hinzu dass mehr als eine Datenreihe im Diagramm dargestellt wird. Alle Datenreihen sollen aber über die gleichen Zeilen (in M10 und M11 definiert) dargestellt werden. Ich habe es mit der unten stehenden Prozedur versucht, scheitere aber immer wieder.
Kann mir jemand helfen?
p.s. ich möchte es nicht über "BEREICH.VERSCHIEBEN" mittels Namen realisieren.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, Start, Ende As Integer
If Target.Address = "$M$10" Or Target.Address = "$M$11" Then
Start = ActiveSheet.Range("M10").Value
Ende = ActiveSheet.Range("M11").Value
For i = 1 To ActiveSheet.ChartObjects.Count
ChartObjects(i).Activate
If ActiveChart.Name = ActiveSheet.Name & " Diagramm 5" Then
ActiveChart.SetSourceData Source:=ActiveSheet.Range("F" & Start & ":F" & Ende) & ";" & ActiveSheet.Range("H" & Start & ":H" & Ende), PlotBy:=xlColumns
End If
Next i
End If
End Sub