Thema Datum  Von Nutzer Rating
Antwort
09.07.2017 12:05:54 Bernhard
NotSolved
Blau Diagraamm auf Knopfdruck
 09.07.2017 15:54:07 Ben
NotSolved

Ansicht des Beitrags:
Von:
Ben		 Datum:
09.07.2017 15:54:07		 Views:
507		 Rating:
     
Antwort:
  Ja
Thema:
Diagraamm auf Knopfdruck

Hallo,

mit dem nachstehenden Code kann man einzelne Datenreihen in einem Diagramm filtern:

Sub VisibleHiddenSeriesInChart(SeriesName As String, bHidden As Boolean)
    Dim wsh As Worksheet
    Dim sh As Shape
    Dim mySeries As Series
    Dim myChart As Chart
    Set wsh = ActiveSheet
    
    Set sh = wsh.Shapes(1)
    If sh.HasChart Then
        Set myChart = sh.Chart
        For Each mySeries In myChart.FullSeriesCollection
            If mySeries.Name = SeriesName Then
                mySeries.IsFiltered = bHidden
                Exit For
            End If
        Next
    End If
End Sub

Aufruf Beispiel:

VisibleHiddenSeriesInChart "1 Steuern", false

Blendet eine Datenreihe ein.

VisibleHiddenSeriesInChart "1 Steuern", true

Blendet eine Datenreihe aus.

Im Parameter "SeriesName" muss die Bezeichnung einer Datenreihe angegeben werden, wie diese im Diagramm angezeigt wird.

Getestet wurde es in Excel 2013 mit einem Liniendiagramm, welches in einem Tabellenblatt integriert wurde.

LG, Ben

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.07.2017 12:05:54 Bernhard
NotSolved
Blau Diagraamm auf Knopfdruck
 09.07.2017 15:54:07 Ben
NotSolved