Alle Diagramme per checkbox ausblenden
R.Atlos
bin neu hier. Ich möchte gerne per Makro bei Anklicken der Checkbox alle
Diagrammblätter in meiner Arbeitsmappe aus- bzw. einblenden.
Mein jetziger Code:
Private Sub CheckBox10_Click()
If CheckBox10.Value = True Then
ActiveWorkbook.Charts.Visible = True
Else
ActiveWorkbook.Charts.Visible = False
End If
End Sub
Irgendwas passt nicht: "Laufzeitfehler 1004; die Methode Visible für das Objekt Sheets ist fehlgeschlagen"
Über Hilfe würde ich mich freuen.
Gruß, R. Atlos
Anzeige