Minimum Diagramm wird nicht erkannt
03.12.2019 14:52:12
Tim
Hallo, ich habe ein kleines Problem mit der Einstellung Minimum und Maximum. Für die y-Achse funktioniert alles ganz normal. Übernehme ich den Befehl für die x-Achse zeigt er mir allerdings einen Leufzeitfehler. Wenn ich (ohne VBA) bei dem Diagramm auf die Achsenoptionen gehe zeigt er mir komischerweise nicht einmal die Möglichkeit an ein Minimum und ein Maximum einzutragen. Für die Y-Achse ist diese Option jedoch freigeschalten. Kann mir das jemand vllt erklären?
Sub Diagrammblatt()
' Alte Diagramme löschen
Dim objChart As Object
For Each objChart In Sheets("Tabelle2").ChartObjects
objChart.Delete
Next
Dim DA1, DA2, DA3, DE, DA As Range
Dim KA1, KA2, KA3, KE, KA As Range
Dim xArr As Variant
Dim yArr As Variant
DA1 = Date
DA2 = DateAdd("d", 3, Date)
DA3 = DateAdd("d", 8, Date)
DE = DateAdd("m", 12, Date)
KA1 = 0.6
KA2 = 0.3
KA3 = 0.1
KE = 0
xArr = Array(DA1, DA2, DA3, DE)
yArr = Array(KA1, KA2, KA3, KE)
' Auswahl der Tabelle und des Diagrammtypes
With Worksheets("Tabelle2")
.Shapes.AddChart2(276, xlAreaStacked).Select
.Application.CutCopyMode = False
End With
With ActiveChart
' Festlegung der Daten f?r das Diagramm
.SeriesCollection.NewSeries
.SeriesCollection(1).Name = "=""Test"""
.SeriesCollection(1).Values = yArr
.SeriesCollection(1).XValues = xArr
' Bearbeitung der x-Achse als Zeitachse mit Maximum und Minimum Datum
.HasAxis(xlTimeScale) = True
.Axes(xlCategory).MinimumScale = Date
.Axes(xlCategory).MaximumScale = DateAdd("m", 12, Date)
' Bearbeitung der y-Achse mit Achsenbeschriftung und Minimum und Maximum
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Auslastung"
.Axes(xlValue).MinimumScale = 0
.Axes(xlValue).MaximumScale = 1
End With
End Sub