Kann mir jemand sagen, warum das hier, was hinter einem Knopf verborgen ist, nicht funktioniert?
Schon die erste Zeile geht nicht...
With ActiveSheet.Charts("Verteilung")
If .ChartTitle.Text = "Verteilung absolut" Then
.SeriesCollection(2).Values = "='Verteilung'!$N$20:$N$27"
.ChartTitle.Text = "Verteilung relativ"
ElseIf .ChartTitle.Text = "Verteilung relativ" Then
.SeriesCollection(2).Values = "='Verteilung'!$L$20:$L$27"
.ChartTitle.Text = "Verteilung absolut"
Else
Exit Sub
End If
End With