Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1436to1440
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1436to1440
1436to1440
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Diagramm ausblenden wenn CheckBox

Diagramm ausblenden wenn CheckBox
22.07.2015 12:13:22
Heinz
Mahlzeit im Forum
Ich habe 3 Diagramme,die ich mit CheckBoxen anzeigen lasse.
Es sollte immer nur ein Diagramm angezeigt werden.
Der untere Code funktioniert nicht so richtig.
Es werden zwei Diagramme angezeigt.
Könnte mir dazu bitte jemand weiterhelfen?
Gruß Heinz
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
ActiveSheet.ChartObjects("Diagramm 1").Visible = True
CheckBox1.Caption = "Heimspiele ausblenden"
ActiveSheet.ChartObjects("Diagramm 2").Visible = False
ActiveSheet.ChartObjects("Diagramm 3").Visible = False
CheckBox2.Value = False ' entfernt das Häkchen
CheckBox3.Value = False ' entfernt das Häkchen
Else
ActiveSheet.ChartObjects("Diagramm 1").Visible = False
CheckBox1.Caption = "Heimspiele einblenden"
End If
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramm ausblenden wenn CheckBox
22.07.2015 12:24:04
Rudi
Hallo,
Es sollte immer nur ein Diagramm angezeigt werden.
dann solltest du besser Optionbuttons verwenden.
Gruß
Rudi

AW: Diagramm ausblenden wenn CheckBox
22.07.2015 13:02:29
Heinz
Hallo Rudi
Erstmals Danke wegen "OptionButton" sehr gute Entscheidung
Nur tut sich jetzt nichts mit meinen Code
Wo liegt bitte mein Fehler?
Danke Heinz

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
ActiveSheet.ChartObjects("Diagramm 1").Visible = True
OptionButton1.Caption = "Heimspiele ausblenden"
Else
ActiveSheet.ChartObjects("Diagramm 1").Visible = False
OptionButton1.Caption = "Heimspiele einblenden"
ActiveSheet.ChartObjects("Diagramm 2").Visible = True
ActiveSheet.ChartObjects("Diagramm 3").Visible = True
End If
End Sub

Anzeige
AW: Diagramm ausblenden wenn CheckBox
22.07.2015 13:45:44
Rudi
Hallo,
vom Prinzip her geht's so: 
Private Sub OptionButton1_Click()
ShapesEinAus
End Sub
Private Sub OptionButton2_Click()
ShapesEinAus
End Sub
Private Sub OptionButton3_Click()
ShapesEinAus
End Sub
Sub ShapesEinAus()
With Tabelle1
.Shapes(1).Visible = .OptionButton1.Value
.Shapes(2).Visible = .OptionButton2.Value
.Shapes(3).Visible = .OptionButton3.Value
End With
End Sub

Hab Shapes statt Diagramme genommen.
Gruß
Rudi

AW: Diagramm ausblenden wenn CheckBox
22.07.2015 14:22:34
Heinz
Hallo Rudi
Funktioniert super.
Recht herzlichen Dank !!
noch einen schönen Tag
gruß,Heinz
Anzeige

301 Forumthreads zu ähnlichen Themen

Diagramm - Werte ausblenden
Michael

Hallo Zusammen,
ich möchte auf Wochenbasis ein Diagramm erstellen. Die Grafik soll das ganze Jahr beinhalten, aber immer nur dann die Grafik erweitern, wenn ein Wert eingetragen wurde. Da ich wöchentlich Werte eintrage sollte sich die Grafik dann auch automatisch wöchentlich erweitern. Hat...
14.02.2011 12:18:48
Thread-ID: 1200670
7 Beiträge
Anzeige
Zeilen einer Diagramm-Datentabelle ausblenden
Wolfango

Hallo zusammen,
In einem Excel-Diagramm (Balken und Linien mit Primär und Sekundärachse) habe ich die zugehörige Datentabelle eingeblendet (6 Datenreihen, also auch 6 Zeilen in der Datentabelle).
Nun möchte ich, dass Zeile 2 und 4 in der Datentabelle nicht erscheinen (in der grafisch...
21.03.2014 11:06:10
Thread-ID: 1354343
3 Beiträge
FullSeriesCollection
Luca

Hallo zusammen ich verwende folgenden Codeschnipsel: For i = 1 To Anzahl wert = Range("E8").Offset(i - 1, 0).Value Worksheets("Inputs").ChartObjects("Diagramm 4").Activate With ActiveChart.FullSeriesCollection(3).Points((2 * i) - 1) If wert > 0 Then With .Format.Fill .ForeColor.Brightness =...
21.09.2015 15:27:25
Thread-ID: 1448482
3 Beiträge
Anzeige
FullSeriesCollection
DENNIS

Hallo zusammen,
die letzte Codezeile bereitet mir Probleme:
<i>.FullSeriesCollection(1).Values = Range(Cells(12, 12 + y), Cells(Cells(9, 5), 12 + y))
.FullSeriesCollection(1).XValues = Range(Cells(12, 12), Cells(Cells(9, 5), 12))
If Cells(6, 12 + y) > 1 Then
<b&g...
12.04.2017 16:46:02
Thread-ID: 1552618
4 Beiträge
Diagramm SeriesCollection via VBA aktualisieren
mensi

Hallo alle Zusammen,
ich hoffe Ihr könnt mir hier weiter helfen?!
ich verzweifel so langsam und find auch irgendwie keine Lösung.. :(
In einem bestehendem Diagramm mit zwei Mittelwertreihen sollen weitere Messerwerte aus x belibigen Arbeitsblättern dargestellt werden.
Soweit fu...
18.06.2019 16:32:50
Thread-ID: 1698304
9 Beiträge
SeriesCollection mit VBA
Melli

Hallo alle zusammen,ich habe im Archiv schon gesucht und gesucht aber auf mein Problem keine Lösung gefunden. Hoffentlich kann mir einer von euch helfen....Ich baue ein Chart mit zwei Linien via VBA auf. Nun möchte ich eine dritte Reihe als Balken hinzufügen, die nur einen Wert hat. Das bekomm...
03.12.2002 17:14:16
Thread-ID: 188489
3 Beiträge
Diagrammwerte automatisch ausblenden
AxelH

Hallo,wer hat einen Tipp zu folgendem Problem:
Ich habe eine Tabelle mit zwei Spalten und 14 Zeilen. Linke Spalte ist die Bezeichnung, rechte Spalte der Wert. Wenn der Wert 0 ist, sollen diese auch nicht im Diagramm (z.B. Kreisdiagramm) erscheinen. Ich habe bereits diverses probiert, hab es...
09.01.2003 11:10:34
Thread-ID: 200904
2 Beiträge
Excel 8.0 Diagrammerstellung Werte ausblenden
ChristianN

Hallo Forum,ich hätte eine kurze Frage.Ich habe gerade ein Diagramm erstellt, dass die Produktivität in unserem Betrieb täglich erfasst! Nun möchte ich allerdings die Werte die gleich 0 sind aus dem Diagramm verbannen! Werte gleich Null sind immer nur noch nicht gelaufene Tage, z.B. 28.02.Hat j...
26.02.2003 15:32:44
Thread-ID: 224618
12 Beiträge
Anzeige

Links zu Excel-Dialogen

CheckBox OptionButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
1
2
2
2
3
8
2
1
11
2
12
9
2
2
4
3
12
7
2
19
8
6
3
3