Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Diagrammdaten ein-/ausschalten

Forumthread: Diagrammdaten ein-/ausschalten

Diagrammdaten ein-/ausschalten
16.11.2024 09:38:50
Wolfgang
Hallo,

ich suche eine Lösung für folgende Aufgabe:

In einem Diagrammblatt mit dem Namen "Pyramide_1" gibt es 4 Datenreihen: Datenreihe1, Datenreihe2, Datenreihe3 und Datenreihe4, die sich normalerweise über RECHTSKLICK - DATEN AUSWÄHLEN aktivieren/deaktivieren lassen.

Ich möchte gerne mittels VBA die Datenreihe3 und Datenreihe4 wechselweise ein bzw. ausschalten.
Kann mir jemand von euch bitte dabei behilflich sein?

Vielen Dank!
Wolfgang
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagrammdaten ein-/ausschalten
16.11.2024 09:57:35
RPP63
Moin!
Datenschnitt oder Pivot-Diagramm?
Deine Datei zeigst Du nicht, weil …?

Gruß Ralf
AW: VBA Diagrammblatt Datenreihen ein-/ausblenden
16.11.2024 11:22:21
Wolfgang
Vielen Dank, Beverly, das wars!!
Wolfgang
AW: Diagrammdaten ein-/ausschalten
16.11.2024 10:24:14
Wolfgang
Was meinst du damit?
Ich habe ein ganz normales Diagramm mit vier Datenreihen.

Gruß
Wolfgang
AW: Diagrammdaten ein-/ausschalten
16.11.2024 10:45:58
Eifeljoi 5
Hallo
Die Helfer wollen immer gerne eine Beispieldatei zum testen, zweckmäßig für dich sollte die gepostete Datei gleichen Aufbau wie die Original haben und ein Wunschergebnis.
Anzeige
AW: Diagrammdaten ein-/ausschalten
16.11.2024 10:53:33
RPP63
Ich habe das jetzt mal mit Datenschnitt erstellt.
Datenschnitt angelegt und hinter dem Diagramm versteckt.
CommandButton "Toggle" erstellt.
VBA-Code:
Private Sub CommandButton1_Click()

With ThisWorkbook.SlicerCaches("Datenschnitt")
.SlicerItems("DR3").Selected = Not .SlicerItems("DR3").Selected
.SlicerItems("DR4").Selected = Not .SlicerItems("DR4").Selected
End With
End Sub

Ergibt

oder

Ich habe meine Datei mal hochgeladen:
https://www.herber.de/bbs/user/173656.xlsm

Ändern darfst Du selbst, mir mir Deine Datei ja nicht vorliegt.

Gruß Ralf
Anzeige
"echter" Togglebutton
16.11.2024 11:04:53
RPP63
Mit einem "echten" Togglebutton ginge dies dann so:
Private Sub ToggleButton1_Click()

With ThisWorkbook.SlicerCaches("Datenschnitt")
.SlicerItems("DR3").Selected = ToggleButton1.Value
.SlicerItems("DR4").Selected = Not ToggleButton1.Value
End With
End Sub
Anzeige
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18