Diagramm Datenbereich verschieben
31.07.2003 22:48:11
Atze
warum funktioniert das nicht ???
Option Explicit
Private Sub CommandButton1_Click()
Dim f As Variant
Dim g As Variant
f = Worksheets(1).ComboBox1.ListIndex
g = 6 + f
'On Error Resume Next
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("A").Range(Cells(g, 375), Cells(g, 425)), _
PlotBy:=xlColumns
Range("I2").Select
End Sub
ich hoffe ihr könnt mir helfen.
MFG
Atze