Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1384to1388
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
Inhaltsverzeichnis

XY Diagramm automatische Beschriftung mit Filter

XY Diagramm automatische Beschriftung mit Filter
02.10.2014 11:54:36
Arne
Hallo zusammen,
ich verzweifle an der automatischen Beschriftung eines XY-Diagramms. Habe es zwar dank älterer Einträge bereits geschafft, dass die Punkte im Diagramm automatisch beschriftet werden, allerdings ist die Beschriftung nicht mehr korrekt, sobald ich eine Spalte filtere.
Habe eine Beispiel-Datei erstellt:
https://www.herber.de/bbs/user/92941.xlsm
Ich würde mich tierisch freuen, wenn ihr mir weiterhelfen könntet!!!!!
Vielen Dank im voraus!!!!!

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

Betreff
Datum
Anwender
Anzeige
AW: XY Diagramm automatische Beschriftung mit Filter
02.10.2014 12:47:58
fcs
Hallo Arne,
hier dein Makro mit Anpassungen, so dass ausgeblendete Werte berücksichtigt werden.
Gruß
Franz
Sub Schaltfläche2_Klicken()
Dim strFormel As String
Dim rngBereich As Range
Dim intPunkt As Integer, ZeilePunkt As Long
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
.ApplyDataLabels
strFormel = .Formula
Set rngBereich = Range(Split(strFormel, ",")(1))
ZeilePunkt = 1
For intPunkt = 1 To .Points.Count
Do Until rngBereich.Cells(ZeilePunkt, 1).EntireRow.Hidden = False
ZeilePunkt = ZeilePunkt + 1
Loop
.Points(intPunkt).DataLabel.Text = rngBereich.Cells(ZeilePunkt, 1).Offset(0, -2)
ZeilePunkt = ZeilePunkt + 1
Next intPunkt
End With
End Sub

Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige