Diagramm in VBA werden nicht alle Daten angezeigt
12.10.2024 18:11:19
Heinz H
Habe ein Balkendiagramm das ich per VBA mit Daten füttere.
Es funktioniert auch so halbwegs.
Nur wird mir der Bereich B101:B119 nicht angezeigt, das wäre für die Jahre zum vergleichen.
Ebenso werden mir nicht alle Werte in der Datenbeschriftung hinzugefügt.
Wo liegt bitte der Fehler ?
Habe einen Code und eine Beispielmappe hinzugefügt.
Danke für eure Hilfe.
Heinz
https://www.herber.de/bbs/user/172850.xlsm
Sub Netzbezug_Anbieter()
Application.ScreenUpdating = False
Sheets("Jahresvergleiche").Unprotect
Sheets("Diagramme_Jahresvergleiche").Unprotect
Sheets("Jahresvergleiche").Range("Q2:Q20").Copy
Sheets("Diagramme_Jahresvergleiche").Range("Q101:Q119").PasteSpecial xlPasteValues
Sheets("Diagramme_Jahresvergleiche").ChartObjects(1).Chart.ChartTitle.Text = "" & Worksheets("Diagramme_Jahresvergleiche").Range("D144") ' Diagrammtitel
Sheets("Diagramme_Jahresvergleiche").ChartObjects("Diagramm 1").Chart.SetSourceData Source:=Sheets("Diagramme_Jahresvergleiche").Range("Q101:Q119"), PlotBy:=xlRows ' Werte in Diagramm
https://www.herber.de/bbs/user/172849.xlsm
Sheets("Diagramme_Jahresvergleiche").Activate
Application.ScreenUpdating = True
End Sub
Anzeige
