2 Fragen zu Diagrammblatt

Wenn in Excel ein Diagramm als separates Tabellenblatt erstellt wird, handelt es sich **nicht** um ein Worksheet (Arbeitsblatt), sondern um ein sogenanntes **ChartSheet** (Diagrammblatt). In VBA kannst du das auch erkennen: - Ein **Worksheet** ist ein Objekt vom Typ `Worksheet`. - Ein **Diagrammblatt** ist ein Objekt vom TypChart` (bzw. `ChartSheet`). Du findest beide Typen in der `Sheets`-Sammlung, aber nur Arbeitsblätter in der `Worksheets`-Sammlung und nur Diagrammblätter in der `Charts`-Sammlung. **Beispiel:** ```vba Dim sh As Object For Each sh In ThisWorkbook.Sheets If TypeName(sh) = "Worksheet" Then Debug.Print sh.Name & " ist ein Arbeitsblatt" ElseIf TypeName(sh) = "Chart" Then Debug.Print sh.Name & " ist ein Diagrammblatt" End If Next ``` **Fazit:** Ein als separates Tabellenblatt erstelltes Diagramm ist **kein Worksheet**, sondern ein eigenes Diagrammblatt (ChartSheet).

Um in Excel VBA ein separates Diagrammblatt (Chart Sheet) anzusprechen, kannst du auf die Sammlung der Diagrammblätter mit **Charts** zugreifen. Ein Diagrammblatt ist ein eigenes Arbeitsblatt, das nur ein Diagramm enthält (im Gegensatz zu einem eingebetteten Diagrammobjekt auf einem normalen Arbeitsblatt). Beispiel: Angenommen, das Diagrammblatt heißt „Diagramm1“ (Standardname) oder du kennst den Namen. **Diagrammblatt per Name ansprechen:** ```vba Dim ch As Chart Set ch = ThisWorkbook.Charts("Diagramm1") ``` **Diagrammblatt per Index ansprechen:** ```vba Dim ch As Chart Set ch = ThisWorkbook.Charts(1) ' Erstes Diagrammblatt im Workbook ``` **Beispiel: Diagrammtitel ändern** ```vba ThisWorkbook.Charts("Diagramm1").ChartTitle.Text = "Neuer Titel" ``` **Diagrammblatt aktivieren:** ```vba ThisWorkbook.Charts("Diagramm1").Activate ``` **Hinweis:** - Für eingebettete Diagramme auf einem normalen Arbeitsblatt verwende `Worksheets("Tabelle1").ChartObjects("Diagramm 1").Chart`. - Für Diagrammblätter immer `Charts("Diagramm1")`. Weitere Infos findest du in der [Microsoft VBA-Dokumentation](https://learn.microsoft.com/de-de/office/vba/api/excel.charts).