Datenschnitt Vorauswahl per VBA
19.11.2014 14:21:11
Peter
ich möchte für einen Datenschnitt eine Vorauswahl treffen, die ich mit einem Klick aktivieren kann. Hierzu benutze ich folgenden Code:
Sub AuswahlLand()
Application.ScreenUpdating = False
ActiveWorkbook.SlicerCaches("Datenschnitt_Land").ClearManualFilter
With ActiveWorkbook.SlicerCaches("Datenschnitt_Land")
.SlicerItems("D").Selected = True
.SlicerItems("E").Selected = True
'wie kann ich alle, die "False" sind, zusammenfassen?
.SlicerItems("F").Selected = False
.SlicerItems("N").Selected = False
End With
Application.ScreenUpdating = True
End Sub
Jetzt meine Frage: Wie kann ich alle Items, die nicht ausgewählt werden sollen, als die FALSE sind, zusammenfassen. Hier habe ich nur ein Beispiel, in meiner richtigen Tabelle können mehrere hundert Items auftauchen und der Code wird zu lang...
Habt ihr einen Tipp für mich?
Besten Dank vorab und viele Grüße,
Peter