Hallo liebes VBA-Forum,

ich bin ein ziemlicher Excel-, VBA- und Makro-Anfänger.

Ich habe eine PivotTable erstellt.

Nun möchte ich Optionsfelder einfügen die eine bestehende Filterauswahl entweder aktivieren oder deaktivieren (also wenn der Filter gerade aktiviert ist und man einmal draufklickt soll dieser deaktiviert werden und wenn man nochmal draufklickt soll dieser Parameter wieder in der Filterauswahl sein).

Beispiel: Ein Filter in der PivotTable ist "Geschlecht". Es soll nun ein Optionsfeld "männlich" und ein Optionsfeld "weiblich" geben.
Anfangszustand: männlich und weiblich sind aktiviert, also wird die Summe aller Männer und Frauen in der PivotTable angezeigt.
Klickt man jetzt auf das "männlich"-Optionsfeld wird nur noch die Summe aller Frauen angezeigt. Klickt man wieder auf das männlich Optionsfeld wird wieder die Summe beider Geschlechter angezeigt.

Hierzu möchte ich ein Makro haben, dass darstellen kann...

Kann mir da jemand helfen - sorry ich bin voll der Excel-Noob.

Vielen Dank im Voraus! :)

P.S:: Bisher bin ich soweit, dass ich eine bestehende Auswahl durch klicken des Optionsbuttons deaktivieren, nicht aber reaktivieren kann. (siehe Code)

Sub male_off()
'
' male_off Makro
'

'
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Gender").CurrentPage = _
        "(All)"
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Gender")
        .PivotItems("male").Visible = False
    End With
End Sub