um bei meinem Diagramm die BEschriftungen automatisch zu ändern benutze ich folgenden Code:
Sub DiagrammBeschriftung()
Dim inPunkt As Integer
Dim chDiagramm As Chart
Dim wsTabelle As Worksheet
Set wsTabelle = ActiveSheet
Set chDiagramm = ActiveSheet.ChartObjects(1).Chart
With chDiagramm
.SeriesCollection(1).ApplyDataLabels
For inPunkt = 1 To .SeriesCollection(1).Points.Count
If wsTabelle.Cells(inPunkt + 4, 7) = 0 Then
.SeriesCollection(1).Points(inPunkt).DataLabel.Text = ""
Else
.SeriesCollection(1).Points(inPunkt).DataLabel.Text = wsTabelle.Cells(inPunkt + _
_
4, 7)
.SeriesCollection(1).Points(inPunkt).DataLabel.Text = Format(wsTabelle.Cells( _
inPunkt + 4, 7), "#0.00")
End If
Next inPunkt
End With
End Sub
Nun befindet sich das Diagramm auf der selben Seite wie die Daten dazu!
Wie müsste ich den Code verändern wenn das Diagramm in einem anderen Sheet stehen soll?
Gruß