Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Diagramme ein- und ausblenden

Diagramme ein- und ausblenden
13.06.2017 08:41:50
Christian
Moin alle zusammen,
ich habe auf meiner Arbeitsmappe/ Tabelle 8 Diagramme (siehe Bild). Wobei ich die Nummer der Chartobjects angenommen habe
Userbild
Ich habe auf meiner Arbeitsmappe 8 Buttons um diese Diagramme ein- und auszublenden. Die möchte ich mit folgender Methode auf vier Buttons reduzieren.
Sub CommandButton_CEC_1_Click()
If ActiveSheet.ChartObjects(1).Visible Then
ActiveSheet.ChartObjects(2).Visible = True
ActiveSheet.ChartObjects(1).Visible = False
Else
ActiveSheet.ChartObjects(2).Visible = False
ActiveSheet.ChartObjects(1).Visible = True
End If
'Flächenbelegung im Dock IST
ActiveSheet.ChartObjects(3).Visbible = False
'Flächenbelegung im DOCK PLAN
ActiveSheet.ChartObjects(4).Visbible = False
'Flächenbelegung im Upper Deck IST
ActiveSheet.ChartObjects(5).Visbible = False
'Flächenbelegung im Main Deck IST
ActiveSheet.ChartObjects(6).Visbible = False
'Flächenbelegung im Main Deck Plan
ActiveSheet.ChartObjects(7).Visbible = False
'Flächenbelegung im Upper Deck Plan
ActiveSheet.ChartObjects(8).Visbible = False
End Sub
Sobald der Compiler hier ankommt:

ActiveSheet.ChartObjects(3).Visbible = False
Objekt unterstützt diese Eigenschaft oder Methode nicht
Habt ihr eine Idee?
Viele Grüße
Christian
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: dann schreib "Visbible" richtig o.T.
13.06.2017 08:45:27
ede
.
Danke ich brauch dringend Kaffee :)
13.06.2017 09:02:31
Christian
Haha oh man :D und ich habe mir mehr Gedanken darum gemacht, ob ich die ChartObjects einfach so annehmen kann :) Danke und Guten Morgen
Viele Grüße
Christian
ChartObjects ermitteln
13.06.2017 09:36:15
Christian
Ist es möglich die ChartObject Nummern aus einen Diagramm auszulesen?
Anzeige
AW: ChartObjects ermitteln
13.06.2017 09:41:01
Nepumuk
Hallo Christian,
ja das ist möglich. Beispiel:
Public Sub Test()
    MsgBox Worksheets("Tabelle1").ChartObjects("Diagramm 1").Index
End Sub

Gruß
Nepumuk
Anzeige
AW: ChartObjects ermitteln
13.06.2017 09:53:37
Christian
Bei mir kommt leider nur Index außerhalb des gültigen Bereichs
Ich blende Diagramme ein und aus. Müssen die Diagramm beim Code eingeblendet sein?
Public Sub Test_2()
MsgBox Worksheets("Tabelle2").ChartObjects("Diagramm 8").Index
End Sub

AW: ChartObjects ermitteln
13.06.2017 10:02:15
Nepumuk
Hallo Christian,
nein, das Diagramm kann auch ausgeblendet sein.
Lass dir mal im Tab Start - Suchen und auswählen - Auswahlbereich alle Diagramme anzeigen. Da siehst du die tatsächlichen Namen der Diagramme. Wenn du auf einen der Namen klickst wird das entsprechende Diagramm selektiert. Mit einem Klick auf das Auge rechts vom Namen wird es ausgeblendet und mit einem Klick auf den Strich rechts vom Namen wird es eingeblendet.
Gruß
Nepumuk
Anzeige
AW: ChartObjects ermitteln
13.06.2017 10:18:59
Christian
Hey Nepumuk,
echt genial, vielen Dank für den Tipp, konnte so meine ganzen Diagramm bequem anpassen. Wobei dein Code leider noch nicht funktioniert.
Eigentlich muss ich ja nur die Tabelle und das Diagramm anpassen .. aber es kommt Index außerhalb des gültigen Bereichs
Viele Grüße
Christian
Anzeige
AW: ChartObjects ermitteln
13.06.2017 10:21:39
Nepumuk
Hallo Christian,
der Fehler sagt, du benutzt einen Namen für ein Diagramm das nicht vorhanden ist.
Gruß
Nepumuk
AW: ChartObjects ermitteln
13.06.2017 10:28:37
Christian
Das ist es ja gerade... die Diagramme sind vorhanden
Userbild
Die Diagramme schon, aber "Tabelle 2" nicht! (owT)
13.06.2017 10:34:27
EtoPHG

Anzeige
AW: Die Diagramme schon, aber "Tabelle 2" nicht! (owT)
13.06.2017 10:35:51
Christian
Ah und ich habe nur auf die Leiste im VBA Editor geachtet
Userbild
AW: ChartObjects ermitteln
13.06.2017 10:35:12
Nepumuk
Hallo Christian,
dein Tabellenblatt heißt Kennzahlen und nicht Tabelle2. Wenn du den Objektnamen Tabelle2 benutzen willst dann so:
MsgBox Tabelle2.ChartObjects("Diagramm 8").Index
Gruß
Nepumuk
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Diagramme in Excel ein- und ausblenden


Schritt-für-Schritt-Anleitung

Um Diagramme in Excel ein- und auszublenden, kannst Du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" und wähle Einfügen > Modul.
  3. Kopiere den folgenden Code in das Modul:

    Sub DiagrammEinAusblenden()
       Dim i As Integer
       For i = 1 To ActiveSheet.ChartObjects.Count
           ActiveSheet.ChartObjects(i).Visible = Not ActiveSheet.ChartObjects(i).Visible
       Next i
    End Sub
  4. Füge einen Button hinzu:

    • Gehe zurück zu Excel, wähle Entwicklertools > Einfügen > Button (Formularsteuerung) und platziere den Button auf deinem Arbeitsblatt.
  5. Verknüpfe den Button mit dem Makro:

    • Wähle das soeben erstellte Makro DiagrammEinAusblenden aus und klicke auf OK.
  6. Testen:

    • Klicke auf den Button, um alle Diagramme ein- oder auszublenden.

Häufige Fehler und Lösungen

  • Fehler: Objekt unterstützt diese Eigenschaft oder Methode nicht:

    • Überprüfe, ob Du im Code Visible korrekt geschrieben hast. Ein häufiger Fehler ist die Verwendung von Visbible, was falsch ist.
  • Fehler: Index außerhalb des gültigen Bereichs:

    • Stelle sicher, dass das Diagramm, das Du ansprechen möchtest, tatsächlich existiert und dass Du den korrekten Namen oder Index verwendest.

Alternative Methoden

  1. Diagrammwerte ausblenden:

    • Du kannst die Datenreihen eines Diagramms ausblenden, indem Du die Formatierung änderst. Klicke mit der rechten Maustaste auf die Datenreihe und wähle Datenreihen formatieren. Setze die Füllfarbe auf Keine Füllung.
  2. Excel Grafik ausblenden:

    • Anstatt die Diagramme auszublenden, kannst Du auch die gesamte Grafik (z. B. ein Bild, das mit dem Diagramm verknüpft ist) ausblenden, indem Du die Sichtbarkeit der Grafik mit VBA steuerst.

Praktische Beispiele

  • Einfaches Diagramm ein- und ausblenden:

    Sub EinfachesDiagramm()
      Dim chartName As String
      chartName = "Diagramm 1" ' Name des Diagramms
      ActiveSheet.ChartObjects(chartName).Visible = Not ActiveSheet.ChartObjects(chartName).Visible
    End Sub
  • Diagramm daten ausblenden:

    Sub DatenAusblenden()
      ActiveSheet.ChartObjects("Diagramm 1").Chart.SeriesCollection(1).Format.Fill.Visible = msoFalse
    End Sub

Tipps für Profis

  • Verwende die Suchen und auswählen-Funktion im Tab Start, um schnell alle Diagramme und deren Sichtbarkeit zu überprüfen.
  • Du kannst auch Bedingungen in Deinen VBA-Code einfügen, um nur bestimmte Diagramme basierend auf ihrem Namen oder ihrer Position ein- oder auszublenden.
  • Experimentiere mit ActiveSheet.ChartObjects.Count, um dynamisch alle Diagramme auf dem aktuellen Blatt zu verwalten.

FAQ: Häufige Fragen

1. Wie kann ich ein Diagramm in Excel dauerhaft ausblenden?
Du kannst die Sichtbarkeit eines Diagramms über die Eigenschaften im VBA-Editor steuern. Setze ActiveSheet.ChartObjects("Diagramm 1").Visible = False.

2. Geht das Ausblenden von Diagramm-Daten auch ohne VBA?
Ja, Du kannst die Datenreihen direkt im Diagramm formatieren, um sie unsichtbar zu machen. Klicke dafür mit der rechten Maustaste auf die Datenreihe und wähle Datenreihen formatieren, dann setze die Füllfarbe auf Keine Füllung.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige