ich fülle mit folgendem VBA mein Diagramm.
Die Legendenbeschriftung wird von D9:P9 richtig übernommen.
Nun möchte ich aber bei der 2. Legendenbeschriftung den Text aus E1 ziehen.
Wenn ich das manuell ändere, wird der Wert von E1 angezeigt.
Logischerweise wird dieser Wert aber beim nächsten Ausführen des u.g. VBA wieder überschrieben.
Ich habe es schon mit dem Makrorecorder probiert und auch gegoogelt, bin aber nicht weiter gekommen.
Kann mir mal wieder jemand helfen ;-)
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2,D1")) Is Nothing Then 'wenn sich B2,D1 ändert
With Worksheets("Zeitstrahl") ' das Zeitstrahl Diagramm soll geändert werden
.ChartObjects("Diagramm 1").Chart.SetSourceData _
Source:=Worksheets("Zusammenfassung Daten").Range("D9:P" & _
Worksheets("Basisdaten").Range("D3").Value) 'welche Werte sollen angezeigt werden
.ChartObjects("Diagramm 1").Chart.SeriesCollection(1).XValues = _
Worksheets("Zusammenfassung Daten").Range("B10:B" & _
Worksheets("Basisdaten").Range("D3")) 'Zeitstrahlbeschriftung
End With
End If
End Sub
LG
Edwin