Laufzeitfehler 9
28.06.2017 12:08:05
J-
Sub Saeulendiagramm_Darstellen()
Dim chart As chart
Set chart = sheets(TABELLENBLATT_BRANCHENDATEN).Charts.Add
With chart
.ChartType = xlColumnClustered
.SetSourceData Source:=sheets(TABELLENBLATT_BRANCHENDATEN).Range("B7:U7")
.HasTitle = True
.ChartTitle.Text = sheets(TABELLENBLATT_BRANCHENDATEN).Range("B8")
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = Range("A6")
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = Range("A7")
End With
End Sub