Um die Anzahl der Datenreihen in einem Diagramm in Excel mit VBA zu ermitteln, kannst Du folgenden Befehl verwenden:
ActiveSheet.ChartObjects(1).Chart.SeriesCollection.CountDieser Befehl gibt die Anzahl der Datenreihen im ersten Diagramm des aktiven Arbeitsblatts zurück. Achte darauf, dass Du das richtige Diagramm auswählst, falls Du mehrere Diagramme auf dem Arbeitsblatt hast.
Fehler: „Laufzeitfehler 1004: Methode 'ChartObjects' des Objekts 'Worksheet' fehlgeschlagen.“
Lösung: Stelle sicher, dass Du ein Diagramm auf dem aktiven Arbeitsblatt hast. Wenn kein Diagramm vorhanden ist, musst Du erst eines erstellen.
Fehler: Der Befehl gibt 0 zurück.
Lösung: Überprüfe, ob das Diagramm tatsächlich Datenreihen enthält. Möglicherweise sind die Daten nicht richtig zugeordnet oder das Diagramm ist leer.
Wenn Du die Anzahl der Datenreihen ohne VBA ermitteln möchtest, kannst Du dies auch direkt in Excel tun:
Diese Methode eignet sich gut, wenn Du keine Programmierkenntnisse hast oder einfach eine schnelle Überprüfung benötigst.
Hier sind einige Anwendungsbeispiele, wie Du den VBA-Befehl nutzen kannst:
Datenreihen in einer Schleife durchlaufen:
Dim i As Integer
Dim AnzahlDatenreihen As Integer
AnzahlDatenreihen = ActiveSheet.ChartObjects(1).Chart.SeriesCollection.Count
For i = 1 To AnzahlDatenreihen
Debug.Print "Datenreihe " & i & ": " & ActiveSheet.ChartObjects(1).Chart.SeriesCollection(i).Name
Next iAnzahl der Werte in einer Datenreihe ermitteln:
Du kannst auch die Anzahl der Werte in einer bestimmten Datenreihe ermitteln:
Dim AnzahlWerte As Integer
AnzahlWerte = ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Points.Count
Debug.Print "Anzahl der Werte in der ersten Datenreihe: " & AnzahlWerte=ANZAHLWENN(...), um spezifische Werte in einer Datenreihe zu zählen.1. Wie kann ich die Anzahl der Datenreihen in einem bestimmten Diagramm ermitteln?
Du musst die Indexnummer des Diagramms anpassen. Ersetze ChartObjects(1) durch die entsprechende Nummer.
2. Kann ich die Anzahl der Datenreihen in einem Diagramm auf einem anderen Arbeitsblatt ermitteln? Ja, Du musst jedoch zuerst das spezifische Arbeitsblatt aktivieren oder referenzieren, bevor Du den Befehl ausführst.