Diagramm in Tabelle ausblenden

[Daniel Albert]

Hallo,

kann ich ein Diagramm per Bedingte Formatierung ausblenden ? Ich schaffe es zwar Text und Formatierungen per Bedingte Formaitierung zu verändern , keine Rahmen und Schriftfarbe in weiß damit man auf dem Ausdruck bestimmte Bereiche ausblenden kann aber das Diagramm sieht man noch.

Gruß Daniel

[Jockel]

Hallo, nein. Nicht mit der bedingten Formatierung... Wenn du verrätst, was du vorhast, könnte man villeicht gezielter helfen... Ich bezweifle zudem, dass du Text per bedingter Formatierung verändern kannst...

[Gast 123]

Hallo Daniel Albert

ich habe seiten mit Diagramm gearbeitet, mein Tipp:
schalte bitte den Makro Recorder ein und versuche das Diagramm als Objekt anzuklicken.  Der Recorder verraet dir dann wie das Objekt heisst.  
Ersetze den ".Select" Befehl durch Befehl ".Visible = False", starte das Makro. und schau was passiert!  Freut mich wenns klappt  "passt scho"

mfg  Gast 123

[Daniel Albert]

Guten Morgen,

mit der Bedingten Formatierung färbe ich den Text in eine andere Farbe ein, z.Bsp in weiß damit auf dem Ausdruck der 2ten Seite nichts zu sehen ist.

Bei dem Makro kommt folgendes :

ActiveSheet.ChartObjects("Diagramm 2").Activate

Jetzt müsste das Makro in einem Tabellenblatt folgendes automatisch durchführen.

=ISTLEER(Kunden!$C$3:$C$4) dann ActiveSheet.ChartObjects("Diagramm 2").Visible = False

Soeben habe ich ActiveSheet.ChartObjects("Diagramm 2").Visible = False getestet, geht.

Jetzt brauche nur noch das Makro damit dies Automatisch funktioniert

[Gast 123]

Hallo Daniel Albert

zunaechst einmal freut es mich das die Visible Funktion klappt.  Frage, welches Ereignis soll das Makro auslöschen??
Da kaeme in Frage bei Blatt Aktivierung (beim Blatt wechseln), d.h. wenn man ein anderes Blatt anklickt per Vba die beiden Zellen in "Kunden" prüfen. Oder die Funktion SelectionChange, wenn irgendeine Zelle angeklcikt wird.  Was ist da sinnvoller??

Ich habe mal unten zwei Ereignisse kopiert die sich auf "DieseArbeitsmappe" beziehen.  Der 3. Code dient nur zum Testen ob die leere Zellen Auswertung im "Kunden" Blatt einwandfrei funktioniert.  Einfach mal ausprobieren was für euch besser geeignet ist.

mfg  Gast 123

Code:

'Wird bei Blatt aktivieren aktiv
Private Sub Workbook_SheetActivate(ByVal Sh As Object)

End Sub

'Wird bei Zelle im Blatt anklicken aktiv
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

End Sub


Sub ausblenden_test()     '** nur zum Funktions Test !!
With Worksheets("Kunden")
If IsEmpty(.[c3]) And IsEmpty(.[c4]) Then _
   ActiveSheet.ChartObjects("Diagramm 2").Visible = False
Else
   ActiveSheet.ChartObjects("Diagramm 2").Visible = True
End If
End With
End Sub

[Daniel Albert]

Servus, also der Code von dir sieht schon gut aus nur kommt folgende Meldung:

Fehler beim Kompilieren

Else ohne IF

If ist doch drin , verstehe ich nicht?

Wann das Makro ausgeführt wird, weiß ich noch nicht, da wenn alles gut läuft trägt man nur die Kundendaten ein und druckt dann alle Blätter aus. Sprich man schaut sich die einzelnen Blätter nicht mehr an. Da ich für den Ausdruck auch ein Makro habe könnte ich dann das mit aktivieren.


Aber jetzt zum Testen müsste es erstmal funktionieren

Gruß Daniel

[Jockel]

Hallo, zunächst Mal: die Sache mit der bedingten Formatierung ist (logischer Weise) vom Tisch, richtig..? Man kann ein Diagramm sich auch ohne VBA aus- und/oder einblenden. Mit einem Trick. Stichwort: Kamera...

[Gast 123]

Hallo Daniel Albert

Sorry, ein dummer Flüchtigkeitsfehler von mir, der ist natürlich tödlich.  Schau bitte hier:
am Ende von IsEmpty() sieht man hinter "Then" noch einen -Unterstrich-!!  Then _   Der gehört da nicht hin!!

mfg  Gast 123

[Daniel Albert]

Funktioniert, perfekt hätte ich auch selbst sehen können. Ok dann muss ich mal schauen wie ich den Codie in den Ausdruck einbaue.

Danke schonmal