0-Werte im Diagramm nicht anzeigen

Manfred · 2007-05-31T08:28:56+00:00

Hallo Forum; ich möchte aus einer Tabelle ein Diagramm erstellen. Da die Tabelle viele Werte enthält möchte ich der Übersichtlichkeit halber alle Einträge die den Wert 0 haben nicht im Diagramm anzeigen. Die Tabelle sieht ungefähr so aus: ............ user1 user2 user3 ... fehler1......5......0........1 fehler2......0......2........0 fehler3......1......0........0 . . . Wer kann mit einen Tipp geben Manfred

Hallo, Manfred,
als Grundstock für eine Prozedur könnte folgemdes Makro dienen (Achtung: bitte an Kopie des Diagrammblattes zuvor testen!):


Sub EntferneNull_NV_DataLabels()
Dim chtSC As SeriesCollection, s As Integer, p As Integer
Set chtSC = ActiveChart.SeriesCollection
Application.ScreenUpdating = False
For s = 1 To chtSC.Count
For p = 1 To chtSC(s).Points.Count
With chtSC(s).Points(p)
On Error Resume Next
If .DataLabel.Caption = "0" Or .DataLabel.Caption = "#NV" Then .DataLabel. _
Delete
End With
Next p
Next s
Set chtSC = Nothing
Application.updating = True
End Sub

wobei hier nur explizit die Labels entfernt werden, die den "Sichttext" 0 bzw. "#NV" haben. Sofern andere Wertebedingte Änderungen am Laber vorznehmen sind, ist diese ggf. über den Wert des Datenpunktes zu entscheiden, der nicht mit dem Schriftzug des Datenpunkts übereinstimmen muß.
Darüber hinaus ist dieses Makro, das in den Modulornder des Projektes abzulegen ist, nur auf Diagrammblätter anwendbar (bei eingebetteten Diagrammen ist der Set-Befehl entsprechend abzuändern). Es bereinigt das aktiviere Diagramm.
Gruß,
Uwe

Hi Uwe, Hi Manfred,
der Code ist schon ganz OK, aber der Wert "#NV" wird nicht erkannt, es muss heißen "#N/A". Da die Datenlabels gelöscht werden, müssen sie vorher wieder erstellt werden, sonst wird bei Werteveränderung der Wert in diesem Label nicht angezeigt.


Sub EntferneNull_NV_DataLabels()
Dim chtSC As SeriesCollection, s As Integer, p As Integer
Set chtSC = ActiveChart.SeriesCollection
Application.ScreenUpdating = False
For s = 1 To chtSC.Count
chtSC(s).ApplyDataLabels AutoText:=True, ShowValue:=True
For p = 1 To chtSC(s).Points.Count
With chtSC(s).Points(p)
On Error Resume Next
If .DataLabel.Text = "0" Or .DataLabel.Text = "#N/A" Then .DataLabel.Delete
End With
Next p
Next s
Set chtSC = Nothing
Application.ScreenUpdating = True
End Sub

War außerdem noch ein kleiner Bug in der vorletzten Zeile.
Bis später,
Karin

0-Werte im Diagramm nicht anzeigen

Forumthread: 0-Werte im Diagramm nicht anzeigen

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

0-Werte im Diagramm nicht anzeigen

Forumthread: 0-Werte im Diagramm nicht anzeigen

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread