dynamische Diagramme
16.02.2004 09:45:03
dirk
ich habe folgendes Problem
dieser code erstellt ein dynamisches diagramm leider wird in diesem code nicht
die dynamik der x-achse berücksichtigt!
kann mir jemand bei dem code helfen?
gruss
dirk
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