SetsourceData aufteilen
02.08.2019 17:06:18
Christian
bis jetzt weise ich meinen Diagrammen nur einen Datenbereich über denn unten stehenden Code zu. _ Jetzt möchte ich die Spalte B überspringen und versuche mich gerade daran, die Zuweisung aufzuteilen. Es handelt sich um ein Balkendiagramm
.SetSourceData wsWerte3.Range("A3:E" & lngLetzteZeile3)
Als Fehler bekomme ich Typen unvertäglichkeit
Sub History_DR()
Dim wsWerte3 As Worksheet
Dim wsGraph As Worksheet
Set wsWerte3 = TabRes
Set wsGraph = TabBoard
Set diag3 = wsGraph.ChartObjects("Diagramm 12")
With wsGraph.ChartObjects("Diagramm 12").Chart
Set rgUeberschriften = wsWerte3.Range("B2:E3")
.SetSourceData wsWerte3.Range("A3:A" & lngLetzteZeile3), wsWerte3.Range("C3:E" & _
lngLetzteZeile3)
.HasTitle = True
.ChartTitle.Text = "# of closed DRs according to responsibility"
diag3.Chart.SeriesCollection(2).Name = "=""Closed DRs - DB Schenker"""
diag3.Chart.SeriesCollection(3).Name = "=""Created Upgrade"""
diag3.Chart.SeriesCollection(4).Name = "=""Created MODKIT"""
End With
End Sub