• AddChart2 erstellt die Diagrammform selbst — Style:=201 wählt einen integrierten visuellen Stil, XlChartType:=xlColumnClustered wählt ein Standard-Säulendiagramm, und Left/Top/Width/Height positionieren und dimensionieren es auf dem Arbeitsblatt in Punkt, derselben Einheit, die Excel intern für die Platzierung von Formen verwendet;
• AddChart2 gibt tatsächlich ein Chart-Objekt zurück, nicht den ChartObject-Container darum herum — das .Chart.Parent am Ende dieser Zeile springt wieder zum Container zurück, als dessen Typ chartObj deklariert ist; diese Besonderheit ist leicht zu vergessen und sollte exakt so übernommen werden;
• SetSourceData gibt der ansonsten leeren Diagrammform an, welche Daten dargestellt werden sollen — die Angabe von tbl.ListColumns("Profit").Range bedeutet, dass die Profit-Spalte über alle sichtbaren Zeilen der Tabelle dargestellt wird;
• HasTitle = True muss gesetzt werden, bevor ChartTitle.Text zugewiesen wird — versucht man, den Titeltext bei einem Diagramm zu setzen, das noch keinen Titel hat, schlägt dies fehl.

1. Ausführen von BuildProfitChart

• Kopiere das Sub exakt wie im Kapitel gezeigt und führe es aus — für diesen Teil sind keine Änderungen nötig.
• Es sollte ein Diagramm auf dem Blatt Reports erscheinen, das den Gewinn für jede aktuell sichtbare Zeile in der Tabelle darstellt.

2. Balken einfärben und Legende entfernen

• Beide Eigenschaften gehören zum Diagrammobjekt, nicht zum Arbeitsblatt — chartObj.Chart ist der Einstiegspunkt, wie im Formatierungsbeispiel im Kapitel.
• Die Balkenfarbe befindet sich bei SeriesCollection(1), da nur eine Datenreihe (Profit) dargestellt wird — .Format.Fill.ForeColor.RGB ist die spezifische Eigenschaft zum Setzen.
• Das Entfernen der Legende ist eine einzelne boolesche Eigenschaft (HasLegend), getrennt von der Zeile für die Füllfarbe.

3. Filtern und SetSourceData erneut ausführen

• Wende einen AutoFilter auf Month (Field:=1) an, eingeschränkt auf "January" — dieselbe Technik wie in Abschnitt 4.2.
• Rufe dann erneut SetSourceData mit dem exakt gleichen Ausdruck tbl.ListColumns("Profit").Range aus BuildProfitChart auf — an dieser Zeile muss nichts geändert werden.
• Beobachte genau, was danach mit dem Diagramm passiert: Schrumpft es auf nur die fünf Regionen des Januars oder zeigt es immer noch alle fünfzehn Zeilen, einschließlich der gerade durch AutoFilter ausgeblendeten? Diese Beobachtung ist der eigentliche Zweck dieser Aufgabe, nicht nur das Ausführen des Codes.

Option Explicit

' Point 1 — run this exactly as shown in the chapter
Sub BuildProfitChart()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim chartObj As ChartObject

    Set ws = ThisWorkbook.Worksheets("Reports")
    Set tbl = ws.ListObjects("tblReports")

    Set chartObj = ws.Shapes.AddChart2(Style:=201, _
        XlChartType:=xlColumnClustered, _
        Left:=400, Top:=20, Width:=400, Height:=250).Chart.Parent

    With chartObj.Chart
        .SetSourceData Source:=tbl.ListColumns("Profit").Range
        .HasTitle = True
        .ChartTitle.Text = "Profit by Region"
    End With
End Sub

' Point 2 — color the bars and remove the legend
Sub FormatProfitChart()
    Dim ws As Worksheet
    Dim chartObj As ChartObject

    Set ws = ThisWorkbook.Worksheets("Reports")
    Set chartObj = ws.ChartObjects(1)

    With chartObj.Chart
        .SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(24, 106, 60)
        .HasLegend = False
    End With
End Sub

' Point 3 — filter to January, then re-point the chart at the same range
Sub FilterJanuaryAndRefreshChart()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim chartObj As ChartObject

    Set ws = ThisWorkbook.Worksheets("Reports")
    Set tbl = ws.ListObjects("tblReports")
    Set chartObj = ws.ChartObjects(1)

    tbl.Range.AutoFilter Field:=1, Criteria1:="January"

    chartObj.Chart.SetSourceData Source:=tbl.ListColumns("Profit").Range
End Sub

Führe diese in der Reihenfolge aus: BuildProfitChart, dann FormatProfitChart, dann FilterJanuaryAndRefreshChart. Speziell bei Punkt 3 — achte darauf, was tatsächlich passiert. Excel-Diagramme berücksichtigen in der Regel einen aktiven AutoFilter und blenden die Balken der herausgefilterten Zeilen automatisch aus, auch ohne dass SetSourceData erneut ausgeführt wird. Das erneute Ausführen bestätigt hier hauptsächlich, dass das Diagramm weiterhin korrekt auf die gesamte Spalte verweist — der Filter selbst sorgt für das Ausblenden, nicht der Aufruf von SetSourceData. Es lohnt sich, den Unterschied mit aktiviertem und deaktiviertem Filter selbst zu testen.