Einblendung von DataLabels
07.05.2020 12:04:18
DataLabels
Ich habe ein Problem und zwar. Ich habe 3 Felder erzeugt wo Daten eingetragen werden. Mithilfe einen Kontrollkästchen kann ich diese Daten in einer Datenreihe anzeigen lassen. Alle drei Felder benutzen die selbe Funktion um diese Datenreihen zu erzeugen. Jetzt habe ich folgendes Problem. In der Funktion..
---------------------------------------------------------------------------------------------------------------------------------
If NKx = 1 Then
Anfang_Datenreihe = 2
Ende_Datenreihe = 7
NK_Aktiv = [H_NK1_aktiv]
NK12_Aktiv = [H_NK12_aktiv]
Farbe = RGB(255, 0, 0)
ElseIf NKx = 2 Then
Anfang_Datenreihe = 3
Ende_Datenreihe = 8
NK_Aktiv = [H_NK2_aktiv]
NK12_Aktiv = [H_NK22_aktiv]
Farbe = RGB(0, 176, 80)
ElseIf NKx = 3 Then
Anfang_Datenreihe = 4
Ende_Datenreihe = 9
NK_Aktiv = [H_NK3_aktiv]
NK12_Aktiv = [H_NK32_aktiv]
Farbe = RGB(112, 48, 160)
End If
Sheets("UMZ").Activate
ActiveSheet.ChartObjects("Diagramm 67").Activate
If NK_Aktiv = True Then 'Diagramme ausblenden
For i = Anfang_Datenreihe To Ende_Datenreihe
With ActiveChart.SeriesCollection(i)
.Border.LineStyle = xlNone
.MarkerStyle = xlNone
.Format.Line.Visible = msoFalse
End With
i = i + 4
Next
ActiveChart.SeriesCollection(Ende_Datenreihe).Points(2).DataLabel.ShowSeriesName = 0
ActiveChart.SeriesCollection(Ende_Datenreihe).DataLabels.Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = Farbe
NK_Aktiv = 0
NK12_Aktiv = 0
Else 'Diagramme einblenden
ActiveSheet.ChartObjects("Diagramm 67").Activate
For i = Anfang_Datenreihe To Ende_Datenreihe
With ActiveChart.SeriesCollection(i)
.Border.LineStyle = xlDash
.MarkerStyle = xlMarkerStyleNone
.Border.Color = Farbe
.Interior.Color = Farbe
.Format.Line.Visible = msoTrue
.Format.Line.Weight = 1
End With
i = i + 4
Next
ActiveChart.SeriesCollection(Ende_Datenreihe).Points(2).DataLabel.ShowSeriesName = 1
NK_Aktiv = 1
NK12_Aktiv = 1
End If
End If
--------------------------------------------------------------------------------------------------------------------------------------------
Wenn ich jetzt Box 2 Aktiviere gibt es kein Problem dieser läuft so durch.
Doch wenn ich jetzt Box 1 und 3 Aktieviere stürzt mir mein Programm bei den DataLabels ab.
Ich verstehe das nicht weil alle 3 eigentlicht die gleiche funktion verwenden.
Wenn ich die DataLabels auskommentiere funktionieren alle 3. Zeigen mir dann natürlich die DataLabels nicht an. Das ist mir schon bewusst.
Doch nur bei 2 zeigt er mir das DataLabel an.
Vielen Dank
Rene