Hallo, ich habe ein Problem mit einem bestehenden, eingebetteten Diagramm.
In Zelle A1 steht ein Wert für den Diagrammtitel
In A2:Ax stehen die Werte für die Beschriftung der x-Achse
In B1:K1 stehen die Werte, die als Beschriftungen fie Legende übernommen werden sollten
In B2:Kx stehen die Datenwerte
Mit folgenden Code versuche ich das Diagramm zu befüllen (Titel) bzw. an die aktuelle Zahl der Zeilen anzupassen:
LetzteZeile = ThisWorkbook.Worksheets(BlattName).UsedRange.SpecialCells(xlCellTypeLastCell).Row
' Diagrammtitel zuweisen
ThisWorkbook.Worksheets(BlattName).ChartObjects("Diagramm " & BlattName).Chart.ChartTitle.Text = _
ThisWorkbook.Worksheets(BlattName).Range("A1")
' Datenbereich anpassen
ThisWorkbook.Worksheets(BlattName).ChartObjects("Diagramm " & BlattName).Chart.SetSourceData _
Source:=Sheets(BlattName).Range("A1:K" & LetzteZeile), PlotBy:=xlColumns
Grundsätzlich funktioniert das, aber dann verschwindet manchmal (für mich nicht nachvollziehbar unter welchen Bedingungen) die Legendenbeschriftung bzw. taucht das Feld A1 als Beschriftung für den ersten Datenpunkt in der x-Achse auf
Ich bitte um eure Hilfe
lG Daniel