Kurven im Diagramm ausblenden?
17.06.2008 10:16:00
christian
ich möchte gern Kurven in einem Diagramm ein- und ausblenden. Es sind immer gleich viel Kurven, deshalb können es "feste" Button sein.
Nun hab ich da was produziert, leider funktioniert das nicht richtig.
Also ich dachte an das ausblenden der Quelle.
Ein Umschalter der ein Makro startet, dass im Quelltabellenblatt die Spalte A und B ausblendet.
Macht er aber nicht, er blendet Spalte A und B im Arbeitsblatt in dem sich das Diagramm befindet aus.
Bitte um Hilfe!
Option Explicit
Private Sub ToggleButton1_Click()
Dim TB As ToggleButton
Set TB = ToggleButton1
If TB.Value = True Then
TB.Caption = "5" & Chr(13) & "ausblenden"
Call SpaltenAusblenden
Else
TB.Caption = "5" & Chr(13) & "einblenden"
Call SpaltenEinblenden
End If
End Sub
hier der Code zum Ausblenden:
Sub SpaltenAusblenden()
Sheets("Berechnung zu 5").Activate
Columns("A:B").EntireColumn.Hidden = True
Sheets("Tabelle1").Activate
End Sub
und hier der Code zum wieder Einblenden
Sub SpaltenEinblenden()
Sheets("Berechnung zu 5").Activate
Columns("A:B").EntireColumn.Hidden = False
Sheets("Tabelle1").Activate
End Sub
Vielleicht gibt es auch etwas einfacheres?
Dank im voraus
Christian
Anzeige