AW: Bezeichnungsfeld auf Diagramm per VBA beschreiben
26.02.2013 09:07:36
Klaus
Hi Jockel,
Der Makrorekorder ist dein Freund!
mach das ganze einmal per Hand (das Feld auswählen und zB ein x reinschreiben) während der Rekorder läuft. Jetzt weisst du, wie genau du dein Datenfeld ansprichst.
Sub Macro1()
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.SeriesCollection(1).DataLabels.Select
ActiveChart.SeriesCollection(1).Points(3).DataLabel.Select
Selection.Formula = "x"
End Sub
Im zweiten Schritt ersetzt du das x natürlich gegen deine Zellposition:
Sub Macro2()
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.SeriesCollection(1).DataLabels.Select
ActiveChart.SeriesCollection(1).Points(3).DataLabel.Select
Selection.Formula = Sheets("Tabelle1").Range("A12")
End Sub
Jetzt noch das ganze unnötige Select und Activate rauswerfen (und einmal Chart ergänzen)
Sub Macro3()
ActiveSheet.ChartObjects("Chart 1").Chart.SeriesCollection(1).Points(3).DataLabel. _
Formula = Sheets("Tabelle1").Range("A12")
End Sub
Und das wars schon! Den Code kannst du NICHT 1&1 kopieren, da deine Diagrammnamen und Bezeichnungsfelder warscheinlich anders heissen.
Grüße,
Klaus M.vdT.