Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Nullwerte aus Diagramm in Diagrammblatt entfernen

Nullwerte aus Diagramm in Diagrammblatt entfernen
31.08.2006 08:53:59
Marcus
Hallo,
ich habe folgendes Problem: In einem Diagrammblatt habe ich Diagramm die zum Teil auch Nullwerte enthalten. Diese möchte ich via VBA aus den Diagrammen löschen. Bei eingebundenen Diagrammen ist das in der Regel kein Problem und ich mache es dort mit der folgenden Syntax:
**************************************************************

Sub grafiken_formatieren_D()
Dim a, j, k As Integer
Dim Cht As Chart
Dim ChtSCol As SeriesCollection
Dim ChtPt As Point
For a = 1 To 2
Worksheets("Mappe1").Activate
Set Cht = ActiveSheet.ChartObjects(a).Chart
Set ChtSCol = Cht.SeriesCollection
On Error Resume Next
For j = 1 To ChtSCol.Count
ChtSCol(j).ApplyDataLabels ShowValue:=True
For k = 1 To ChtSCol(j).Points.Count
Set ChtPt = ChtSCol(j).Points(k)
If ChtPt.DataLabel.Text <= "0,00" Then
ChtPt.DataLabel.Delete
End If
Next k
Next j
Next a
End Sub

****************************************************************
Bei Diagrammblättern funktioniert das so nur leider nicht.
Hat jemand eine Idee wie man die Syntax dort formulieren muss?
Danke,
Marcus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nullwerte aus Diagramm in Diagrammblatt entfernen
31.08.2006 09:12:43
Herbert
Set Cht = Charts(a)
Gruß Herbert
Danke :)
31.08.2006 19:15:10
Marcus
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige