1 Frage zu Charttype

Der Fehler „Die Methode ChartType für das Objekt ... ist fehlgeschlagen“ tritt in Excel VBA häufig auf, wenn du versuchst, den Diagrammtyp einer Datenreihe auf einen Typ zu setzen, der mit dem aktuellen Diagramm nicht kompatibel ist. **Mögliche Ursachen und Lösungen:** 1. **Diagrammtyp nicht kompatibel:** Nicht alle Diagrammtypen können beliebig kombiniert werden. Beispielsweise kannst du in einem Säulendiagramm (Column) eine Datenreihe auf Balken (Bar) umstellen, aber nicht in einem Liniendiagramm. 2. **Falscher Diagrammtyp des Gesamtdiagramms:** Prüfe, ob das Gesamtdiagramm bereits ein Typ ist, der mit `xlBar` kompatibel ist. Wenn nicht, setze zuerst den Diagrammtyp des gesamten Diagramms: ```vba ActiveChart.ChartType = xlBarClustered ``` Danach kannst du die einzelnen Serien anpassen. 3. **Falscher Index oder leere Serie:** Stelle sicher, dass `Zähler1` auf eine existierende Serie verweist. Prüfe die Anzahl der Serien mit: ```vba MsgBox ActiveChart.FullSeriesCollection.Count ``` 4. **Verwendung von FullSeriesCollection:** In neueren Excel-Versionen solltest du `FullSeriesCollection` verwenden, wenn das Diagramm sowohl Primär- als auch Sekundärachsen hat. Ansonsten reicht auch `SeriesCollection`. **Beispiel für die korrekte Vorgehensweise:** ```vba Dim Zähler1 As Integer Zähler1 = 1 ' Beispielwert, anpassen! ' Diagrammtyp des gesamten Diagramms setzen ActiveChart.ChartType = xlBarClustered ' Dann den Typ der Serie setzen ActiveChart.FullSeriesCollection(Zähler1).ChartType = xlBarClustered ``` **Weitere Hinweise:** - `xlBar` ist kein gültiger Wert für `ChartType`. Verwende z.B. `xlBarClustered`, `xlBarStacked` oder `xlBarStacked100`. - Eine Übersicht der Diagrammtypen findest du in der [Microsoft-Dokumentation](https://learn.microsoft.com/de-de/office/vba/api/excel.xlcharttype). **Zusammenfassung:** Setze zuerst den Diagrammtyp des gesamten Diagramms auf einen Bar-Typ und verwende einen gültigen Wert wie `xlBarClustered`. Prüfe außerdem, ob die Serie existiert. **Beispiel:** ```vba ActiveChart.ChartType = xlBarClustered ActiveChart.FullSeriesCollection(1).ChartType = xlBarClustered ``` Das sollte den Fehler beheben.