Hallo WWW,
wie kann ich in Excel bei einem Kreisdiagramm den Gesamtwert anzeigen lassen?
Geht das überhaupt?
mfg
sfsardina
Hallo WWW,
wie kann ich in Excel bei einem Kreisdiagramm den Gesamtwert
anzeigen lassen?
Geht das überhaupt?
Ich lasse die absoluten Werte der einzelnen Datenreihen anzeigen und möchte in Diagrammnähe auch den Gesamtwert einblenden.
mfg
sfsardina
VBA-Lösung
Ich lasse die absoluten Werte der einzelnen Datenreihen
anzeigen und möchte in Diagrammnähe auch den Gesamtwert
einblenden.
Hi Sandro,
Rechtsklick unten auf den Blattnamen, Linksklick auf „Code anzeigen“, Code eingeben, ggfs anpassen, Editor schliessen.
Makro überwacht im Beispiel den Bereich A1:A8, das kannst du abändern für deinen Bereich. Sobald du in dem Beeich Werte manuell änderst wird die Anzeige der Gesamtsumme im Diagramm automatisch aktualisiert.
Die Diagrammnummer (im Beispiel die 5) erfährst du indem du den Cursor irgendwo in das untere Makro reinstellst und F5 drückst.
(k.A. warum da dann Chart 5 und nicht Diagramm 5 angezeigt wird)
Option Explicit
Private Sub Worksheet\_Change(ByVal Target As Range)
Dim Anzeige As String, Merker As Range
If Not Intersect(Target, Range(" **A1:A8**")) Is Nothing Then
Application.ScreenUpdating = False
Set Merker = ActiveCell
Anzeige = "Hier ist der Diagrammtitel" & Chr(10) & "" & Chr(10) & "Hier die Gesamtsumme: "
ActiveSheet.ChartObjects(" **Diagramm 5**").Activate
ActiveChart.ChartTitle.Characters.Text = Anzeige & Application.WorksheetFunction.Sum(Range(" **A1:A8**"))
Merker.Offset(1, 0).Select
Application.ScreenUpdating = True
End If
End Sub
Sub Namen()
Dim bild
For Each bild In ActiveSheet.Shapes
MsgBox bild.Name
Next bild
End Sub
Gruß
Reinhad
1 „Gefällt mir“
Danke Reinhard!
Hatte gehofft, dass es eine einfachere Lösung dafür gibt!
Werde es mal ausprobieren.
mfg
Sandro