Diagramm-Nachhilfe

Hallo werte Gemeinde,
ich bins wieder ;)
Ich arbeite gerade mit Diagrammen, wobei mir aber die nötige Erfahrung fehlt.
Da Charts für mich Neuland in VBA sind, kannte ich die Bezeichnungen und Syntaxen nicht aber ich habe mich im Netz etwas dazu belesen. Leider werde ich damit noch nicht komplett glücklich.
Ich erläutere kurz mein Vorhaben:
- Button in UserForm klicken -> Alle Datenbeschriftungen anzeigen (klappt)
- Werte, die "0" sind, sollen keine Datenbeschriftung bekommen (klappt nicht)
Ich dachte an eine FOR-EACH-NEXT-Schleife, die den bestimmten Datensatz durchgeht und abhängig vom Wert des Datenpunktes die Datenbeschriftung setzt bzw. nicht setzt.
Schön wäre es, ohne Activate und Select auszukommen. Vieles im Netz basierte auf vorherigem aktivieren des Diagramms und weiter dann mit ActiveChart und SeriesCollection(1).Select..
An anderer Stelle (wo es nicht um einzelne Datenpunkte geht) konnte ich direkt das Diagramm und den Datensatz ansprechen ohne zu selektieren:
(Sheets("Tabelle 1").ChartObjects("Diagramm 1").Chart.SeriesCollection(1). ...).
Versuche ich aber dieses Schema F jetzt hier bei den Datenpunkten misslingt mir das.
Dachte an sowas wie:


For each Point in Sheets("Tabelle 1").ChartObjects("Diagramm 1").Chart.SeriesCollection(1). _
Points
Next

aber leider ohne Erfolg. :(
Kann mir jemand helfen?
Gruß
Chris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

With Worksheets("Tabelle 1").ChartObjects("Diagramm 1").Chart.SeriesCollection(1) For lngPunkt = 1 To .Points.Count If .Points(lngPunkt).Values = 0 Then 'FEHLER siehe folgende Erläuterung MsgBox "0" End If Next lngPunkt End With

Hi Chris,
bei der ersten Variante blendest du erst alle Beschriftungslabel ein und blendest die "falschen" aus, bei der zweiten gehst du den umgekehrten Weg und blendest nur die "richtigen" ein - wo ist also der prinzipielle Unterschied? Einblenden musst du die Beschriftungslabel so oder so (irgendwie). Bei der ersten prüfst du anhand der Punkt-Beschriftung, bei der zweiten musst du die Werte in ein Array einlesen, anhand dieses Arrays prüfen, ob der Wert verschieden von 0 ist und wenn nicht, dieses Label einblenden. Es spielt also letztendlich keine Rolle, welche Variante du wählst - keine ist schneller oder langsamer als die andere.
Variante 1:

Sub MitBeschriftung()
Dim lngPunkt As Long
With Worksheets("Tabelle1").ChartObjects("Diagramm 1").Chart.SeriesCollection(1)
If .HasDataLabels = False Then .ApplyDataLabels
For lngPunkt = 1 To .Points.Count
If .Points(lngPunkt).DataLabel.Text = "0" Then .Points(lngPunkt).DataLabel.Text = ""
Next lngPunkt
End With
End Sub

Variante 2:


Sub OhneBeschriftung()
Dim lngPunkt As Long
Dim arrWerte
With Worksheets("Tabelle1").ChartObjects("Diagramm 1").Chart.SeriesCollection(1)
If .HasDataLabels Then .DataLabels.Delete
arrWerte = .Values
For lngPunkt = 1 To .Points.Count
If arrWerte(lngPunkt)  0 Then .Points(lngPunkt).ApplyDataLabels
Next lngPunkt
End With
End Sub

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Diagramm-Nachhilfe

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread