Hallo Zusammen,

brauch mal wieder Eure Hilfe...

Ich hab in Excel eine einfache Tabelle (eine Datenreihe+1 Reihe Beschriftung), welche ich als Kreisdiagramm anzeigen möchte.

Folgenden Code habe ich bis jetzt:

Private Sub CommandButton1_Click()
Dim dia As ChartObject
Dim i As Integer
Dim Datenreihe As Series
Dim punkt As Point

' Diagramm positionieren
Set dia = ActiveSheet.ChartObjects.Add(350, 150, 350, 225)
'Diagramm Name zuweisen
dia.Name = "anteilige Fertigungskosten"
'Bereich festlegen und kopieren
i = ActiveSheet.Range("b8").End(xlDown).Row
Range("b9:c" & i).Copy
' Diagramm markieren
ActiveSheet.ChartObjects("anteilige Fertigungskosten").Activate
' kopierete Daten einfügen
ActiveChart.SeriesCollection.Paste Rowcol:=xlColumns, serieslabels:=False, categorylabels:=True, Replace:=True, NewSeries:=True
' Ausschneide und Kopiermodus ausschlaten, Laufrahmen entfernen
Application.CutCopyMode = False
' Diagrammtyp festlegen
ActiveChart.ChartType = xlPieExploded
' Legenda ein
ActiveChart.HasLegend = True
' Titel ein
ActiveChart.HasTitle = True
' Titel festlegen
ActiveChart.ChartTitle.Text = "anteilge Fertigungskosten"

ActiveChart.PlotArea.Interior.ColorIndex = 0

' Einzelne Daten beschriften mit Wert aus Tabelle
Set Datenreihe = ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
For Each punkt In Datenreihe.Points
punkt.ApplyDataLabels
Next

End Sub

Bisher zeigt mir das Diagramm die Wert aus der Datenreihe an, aber ich hätte noch gerne, daß unter dem Wert der Datenreihe angezeigt wird, wieviel Prozent die jeweilge Datenreihe am ganzen ausmacht...

Habs schon mit dem Aufzeichner versucht, aber der bringt da gar nix :(


Hoff Ihr könnt mir helfen!

Vielen Dank schon mal im Vorraus!
Cathérine

PS: Wenn mir noch jemand verraten kann, wie ich die Plotarea komplett ausschalt, wär ich überglücklich ;p

alle Antworten zu dieser Frage