Samsung6713
Gebruiker
- Lid geworden
- 24 dec 2019
- Berichten
- 209
Goedemiddag,
ik wil een gedeelte van een datalijst kopieren.
Hiervoor heb ik er een draaitabel van gemaakt, en daar 2 slicers in gezet.
Nu wil ik de slicerselectie met vba doen, echter zoals de code nu werkt is dit enorm traag.
Hoe krijg ik de code zo dat het een vlotter werkt?
ik wil een gedeelte van een datalijst kopieren.
Hiervoor heb ik er een draaitabel van gemaakt, en daar 2 slicers in gezet.
Nu wil ik de slicerselectie met vba doen, echter zoals de code nu werkt is dit enorm traag.
Hoe krijg ik de code zo dat het een vlotter werkt?
Code:
Sub selectie_uitvoerder()
'
' selectie_uitvoerder
'
'
For Each slcCache In ActiveWorkbook.SlicerCaches
slcCache.ClearManualFilter
Next
With ActiveWorkbook.SlicerCaches("Slicer_Uitvoerder")
For Each oSlicerItem In .SlicerItems
If oSlicerItem.Name = "naam uitvoerder" Then
oSlicerItem.Selected = True
Else
oSlicerItem.Selected = False
End If
Next oSlicerItem
End With
End Sub