ich habe ein Säulendiagramm mit 3 Datenreihen. Eine davon möchte ich benutzerdefiniert beschriften. Also mit Bezug zu anderen Zellen. Hierzu habe ich dieses Makro gefunden:
Sub BeschriftungIstZellbezug()
Dim lngPunkt As Integer
With ActiveSheet.ChartObjects("Diagramm 2").Chart.SeriesCollection(2)
.ApplyDataLabels
For lngPunkt = 1 To .Points.Count
.Points(lngPunkt).DataLabel.Text = Cells(55, lngPunkt)
Next lngPunkt
End With
End Sub
Dieses funktioniert auch, allerdings habe ich 2 Probleme:
1. Die Datenreihe ist nicht forlaufend von 1-12 beschriftet sondern, da das Diagramm 3 Datenreihen beinhaltet, von 1-3-5-7-9 usw.
Damit das ganze dann funktioniert habe ich in der Zeile in der die externe Datenbeschriftung enthalten ist immer 2 Leerzeieln eingefügt. Diese Lösung finde ich nicht so zzufriedenstellen, gibt es eine andere Möglichkeit?
2. Das Diagramm zeigt Ist Werte je Monat. Dementsprechend kann es sein, dass noch keine Werte vorhanden sind. Ist das der Fall wird die Datenbeschriftung mit diesem Makro "0". Mir wäre es aber lieber wenn dann keine Datenbeschritung angezeigt würde.
Danke schomal für eure Hilfe