Diagrammbeschriftung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

ist ein längerer Weg, versuch's aber mal so:
Du brauchst im Datenblatt zunächst zwei neue Zeilen: ich nehme hier mal Zeile 13 und 14
Zeile 13 ist die Beschriftung für Budget, Zeile 14 ist diesewelche für die Ist-Werte.
Trage in B13 diese Formel ein:
=WENN(UND(ISTLEER(C3);NICHT(ISTLEER(A3)));B3;0)
Ziehe sie eine Zelle weiter nach unten und anschließend bis zum Dezember rüber.
Es sollten jetzt überall Nullen stehen, bis auf den aktuellen Monat. Soweit sogut.
Nun fügst du diese beiden Zeilen als neue Datenreihen zu deinem Diagramm hinzu. Du formatierst sie als "Linien". Muster/Farbe usw. auf "Keine" stellen - somit werden sie "unsichtbar". Beschriftungen läßt du "Werte" anzeigen.
Jetzt müssen praktisch nur noch die unschönen Nullen verschwinden.Das erreichst du mittels Doppelklick auf die Zahlen und Zahlenformat: #.##0;-#.##0;;
Das blendet die Nullen weg.
Die Beschriftung von den Balken kannst du komplett wegnehmen.
Funktioniert's??
Viel Erfolg!

Sub test() Sheets(1).ChartObjects(1).Chart.SeriesCollection(1).HasDataLabels = False Sheets(1).ChartObjects(1).Chart.SeriesCollection(1).Points(5).ApplyDataLabels Sheets(1).ChartObjects(1).Chart.SeriesCollection(2).HasDataLabels = False Sheets(1).ChartObjects(1).Chart.SeriesCollection(2).Points(5).ApplyDataLabels Sheets(1).ChartObjects(1).Chart.SeriesCollection(3).HasDataLabels = False Sheets(1).ChartObjects(1).Chart.SeriesCollection(3).Points(5).ApplyDataLabels End Sub

Das ist schon eine super Lösung,
nur habe ich ja drei Grafiken pro Diagramm und mehrer Diagramme,
habe das Makro etwas erweitert, nur frag er mich jetzt jeweils 3*10 welchen datenpunkt ich haben möchte.
Wie kann ich das machen,dass der Datenpunkt nur einmal einzugeben ist und für alle diagramme gilt?


Sub test()
Dim i As Integer
Dim a As Integer
Dim Ende As Long
Dim Ende1  As Long
Ende1 = InputBox("Wieviele Diagramme?")
Ende = 3
For i = 1 To Ende
For a = 1 To Ende1
Sheets(1).ChartObjects(a).Chart.SeriesCollection(i).HasDataLabels = False
Sheets(1).ChartObjects(a).Chart.SeriesCollection(i).Points(InputBox("welcher Datenpunkt?")).ApplyDataLabels
Next
'Sheets(1).ChartObjects(1).Chart.SeriesCollection(2).HasDataLabels = False
'Sheets(1).ChartObjects(1).Chart.SeriesCollection(2).Points(InputBox("welcher Datenpunkt?")).ApplyDataLabels
'Sheets(1).ChartObjects(1).Chart.SeriesCollection(3).HasDataLabels = False
'Sheets(1).ChartObjects(1).Chart.SeriesCollection(3).Points(InputBox("welcher Datenpunkt?")).ApplyDataLabels
End Sub

mfg
artur

Beliebteste Forumthreads (12 Monate)

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread