AW: Diagramm aktualisieren - mit Variablen
17.10.2006 12:09:36
fcs
Hallo Darren,
ich hab hier mal verschiedene Möglichkeiten erstellt. Muss halt mal probieren, welche mit dem Diagramm am besten funktioniert.
Dim rngFind2 As Range, strBereich As String
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("Gelb").Range(rngFind2.Offset(0, 0).Address & ":" _
& rngFind2.Offset(0, 3).Address & ", " & rngFind2.Offset(20, 0).Address & ":" & rngFind2.Offset(20, 3).Address), _
PlotBy:=xlColumns
'oder mit getrennter Berechnung des Bereichs
strBereich = rngFind2.Offset(0, 0).Address & ":" & rngFind2.Offset(0, 3).Address & ", " _
& rngFind2.Offset(20, 0).Address & ":" & rngFind2.Offset(20, 3).Address
strBereich = Application.Union(Sheets("Gelb").Range(rngFind2.Offset(0, 0), rngFind2.Offset(0, 3)), _
Sheets("Gelb").Range(rngFind2.Offset(20, 0), rngFind2.Offset(20, 3))).Address
ActiveChart.SetSourceData Source:=Sheets("Gelb").Range(Bereich), PlotBy:=xlColumns
'oder mit Angabe eines entsprechenden Range-ObjeKtes
ActiveChart.SetSourceData Source:=Application.Union(Sheets("Gelb").Range(rngFind2.Offset(0, 0), rngFind2.Offset(0, 3)), _
Sheets("Gelb").Range(rngFind2.Offset(20, 0), rngFind2.Offset(20, 3))), _
PlotBy:=xlColumns
Gruß
Franz