Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

XY Diagramm automatische Beschriftung mit Filter

Betrifft: XY Diagramm automatische Beschriftung mit Filter von: Arne
Geschrieben am: 02.10.2014 11:54:36

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!!!!!

  

Betrifft: AW: XY Diagramm automatische Beschriftung mit Filter von: fcs
Geschrieben am: 02.10.2014 12:47:58

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



  

Betrifft: AW: XY Diagramm automatische Beschriftung mit Filter von: Arne
Geschrieben am: 02.10.2014 13:15:43

VIELEN DANK!!!!! Klappt einwandfrei! Für alle die es interessiert siehe hier:

https://www.herber.de/bbs/user/92945.xlsm


 

Beiträge aus den Excel-Beispielen zum Thema "XY Diagramm automatische Beschriftung mit Filter"