ich möchte gern über zwei textfelder den datumsbereich der rubrikenachse des diagramms festlegen, funktioniert leider nicht.
Sieht so aus:
...
If ComboBox1 = "Kst. 10" Then
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Values = Sheets("leitstand").Range("C4:BB4")
ActiveChart.SeriesCollection(2).Values = Sheets("leitstand").Range("C5:BB5")
ActiveChart.PlotArea.Select
ActiveChart.Axes(xlCategory).MajorGridlines.Select
ActiveChart.PlotArea.Select
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = 0
.MaximumScale = Sheets("leitstand").Range("BC5")
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
ActiveChart.Axes(xlCategory).Select
With ActiveChart.Axes(xlCategory)
.MinimumScale = TextBox1
.MaximumScale = TextBox2
.BaseUnitIsAuto = True
.MajorUnitIsAuto = True
.MinorUnitIsAuto = True
.Crosses = xlAutomatic
.AxisBetweenCategories = False
.ReversePlotOrder = False
End With
End If
...
vieleicht kann mir ja einer von euch helfen!
Danke schon mal
Steffi