Achsenbeschriftung
16.09.2015 14:31:06
Raphi
ich habe ein Problem mit der Erstellung meines Diagramms.
In der X-Achse soll die 0 beachtet werdeden. Leider startet meine Achse direkt bei 1.
Hierfür müsste bei der Auswahl des Datenbereiches nur C14 bis BC14 als X-Achsenbereich festgelegt werden.
Leider bekomme ich dies in folgenden Code nicht hin.
Kann mir bitte jemand helfen ? ;(
Sub Create_MSTA_KW()
'Tabelle erstellen
Dim rngBereich As Range
Dim lngLetzte As Long
Dim lngReihe As Long
Dim cht As Chart
Sheets("P3_MSTA_Diagramm_KW").Select
With Worksheets("P3_MSTA_Daten_KW")
' letzte belegte Zeile in Spalte B
lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 2)), _
.Cells(.Rows.Count, 2).End(xlUp).Row, .Rows.Count)
Set rngBereich = .Range(.Cells(15, 2), .Cells(lngLetzte, 55))
End With
With Worksheets("P3_MSTA_Diagramm_KW")
On Error Resume Next
Set cht = .ChartObjects("MSTA_KW").Chart 'bereits vorhanden?
On Error GoTo 0
If cht Is Nothing Then
'nein, erstellen
Set cht = .Shapes.AddChart.Chart
End If
With cht
.ChartType = xlLineMarkers
.SetSourceData Source:=rngBereich, PlotBy:=xlRows
.Parent.Name = "MSTA_KW"
.Legend.IncludeInLayout = True
.SetElement (msoElementPrimaryValueGridLinesNone)
With .Axes(xlValue)
.MaximumScale = 52
.MinimumScale = 0
.MajorUnit = 1
.TickLabels.NumberFormat = "KW ##"
.TickLabels.NumberFormat = "KW ##"
End With
With .Axes(xlCategory)
.TickLabels.NumberFormat = "KW ##"
.TickLabels.NumberFormat = "KW ##"
.AxisBetweenCategories = False