dynamisches Diagramm
06.02.2009 12:18:11
martin
ich habe ein VBA Programmierung s. u. gefunden, die mir meine Grafik dynamisch gestaltet und ich u.a. Anfangs und Endwert bestimmen kann, leider klappt das nur wenn das Diagramm auf dem gleichen Tabellenblatt "Rohdaten" wie meine Quelldaten ist. Ich möchte aber mein Diagramm auf ein extra Tabellenblatt plazieren und die Quelle auf meinem Tabellenblatt Rohdaten lassen.
Ist das möglich und wie - ich bin gescheitert.
Schon mal Danke
Gruß
Martin
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngStrat As Range
Dim i, Start, Ende As Integer
If Target.Address = "$D$2" Or Target.Address = "$D$3" Then
rngStart = ActiveCell.Address
Start = ActiveSheet.Range("D2").Value
Ende = ActiveSheet.Range("D3").Value
For i = 1 To ActiveSheet.ChartObjects.Count
ChartObjects(i).Activate
ActiveChart.SetSourceData Source:=ActiveSheet.Range("A" & Start & _
":A" & Ende), PlotBy:=xlColumns
Next i
Range(rngStart).Select
End If
End Sub
Anzeige