Supportnet / Forum / Tabellenkalkulation
Diagramm ein und ausblenden
Frage
Diagramm per klick ein und ausblenden
Antwort 1 von coros
Moin ,
gestatte mir zum Anfang eine kleine Anmerkung. Ein Hallo am Anfang und ein Gruß am Ende würde Deinen Beitrag gleich viel netter aussehen lassen. Wenn Du zum Bäcker gehst sagst Du ja auch beim Reingehen "Guten Tag" und beim Gehen "Auf Wiedersehen". Denn die Leute, an die Du Deine Frage richtest, sitzen zwar am PC, sind aber dennoch Menschen.
Mit nachfolgenden Makros kannst Du ein Diagramm ein und ausblenden. Kopiere die Makros in ein StandardModul und strate Sie jeweisl über eine Befehlsschaltfläche.
Du musst allerdings in den Makros noch die Namen des Diagramms anpassen. Anstelle "Diagramm 1" muss dort der Deines Diagramms eingetragen werden. Aber bitte nicht die Anführungszeichen ("") dabei löschen, der Name muss dazwischen.
Ich hoffe, Du kommst klar. Bei Fragen melde Dich bitte wieder. Dann aber bitte mit obig beschriebenener Höflichkeitsform.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
gestatte mir zum Anfang eine kleine Anmerkung. Ein Hallo am Anfang und ein Gruß am Ende würde Deinen Beitrag gleich viel netter aussehen lassen. Wenn Du zum Bäcker gehst sagst Du ja auch beim Reingehen "Guten Tag" und beim Gehen "Auf Wiedersehen". Denn die Leute, an die Du Deine Frage richtest, sitzen zwar am PC, sind aber dennoch Menschen.
Mit nachfolgenden Makros kannst Du ein Diagramm ein und ausblenden. Kopiere die Makros in ein StandardModul und strate Sie jeweisl über eine Befehlsschaltfläche.
Option Explicit
Sub Diagramm_ausblenden()
ActiveSheet.ChartObjects("Diagramm 1").Visible = False
End Sub
Sub Diagramm_einblenden()
ActiveSheet.ChartObjects("Diagramm 1").Visible = True
End SubDu musst allerdings in den Makros noch die Namen des Diagramms anpassen. Anstelle "Diagramm 1" muss dort der Deines Diagramms eingetragen werden. Aber bitte nicht die Anführungszeichen ("") dabei löschen, der Name muss dazwischen.
Ich hoffe, Du kommst klar. Bei Fragen melde Dich bitte wieder. Dann aber bitte mit obig beschriebenener Höflichkeitsform.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von 0ogni0
Hallo und Sorry
Erstmal Entschuldigung für mein Benehmen und Danke für den Hinweis. Aber da war wohl der Frust Schuld
Leider bekomme ich die Meldung Fehler beim Kompilieren Innerhalb einer Prozedur ungültig Option Explicit ist gelb hinterlegt. Lösche ich Option Explicit wird Sub End erwartet und es erfolgt gar keine Reaktion. Für weitere Hilfe währe ich dankbar.
Mit freundlichen Grüßen
Ingo
Erstmal Entschuldigung für mein Benehmen und Danke für den Hinweis. Aber da war wohl der Frust Schuld
Leider bekomme ich die Meldung Fehler beim Kompilieren Innerhalb einer Prozedur ungültig Option Explicit ist gelb hinterlegt. Lösche ich Option Explicit wird Sub End erwartet und es erfolgt gar keine Reaktion. Für weitere Hilfe währe ich dankbar.
Mit freundlichen Grüßen
Ingo