Use slicers for listobject too,
Sub DatenschnittImListObjectEinfuegen()
ActiveWorkbook.SlicerCaches.Add2(Source:=ActiveSheet.ListObjects(1), _
SourceField:="Region").Slicers.Add SlicerDestination:=ActiveSheet, _
Name:="Regionen", Caption:="Regionen", 50, 300, _
100,150
End Sub