ich möchte in einem Tabellenblatt ein Diagramm ein- und ausblenden. Hierfür habe ich auch schon eine Umschalfläche eingefügt mit folgendem Code:
Private Sub ToggleButton1_Click()
With ToggleButton1
Sheets("Diagramm1").Visible = .Value * 1
.Caption = "Diagramm " & IIf(.Value, "ausblenden", "anzeigen")
End With
End Sub
Ich möchte nun das Diagramm im gleichen Tabellenblatt ausblenden, also nicht wie im vorliegenden Code das Diagrammblatt ausblendet.
Ich danke euch schon im Voraus.
mit freundlichem Gruß
Dietmar Jauch