Aus Zelle Mehrere Datenschnitte per VBA selektieren
11.03.2024 18:52:00
Jan06
Ich möchte 4 Datenschnitte auf einem Tabellenblatt aus einer Zelle jeweils selektieren.
Also in der Zelle E1 steht zum Beispiel die Kundennummer 209901.
Diese Zahl soll in den 4 Datenschnitte selektiert werden.
(Diese Kundennummer ist in allen 4 Datenschnitten vorhanden)
Mit dem Code (Habe ich mir aus dem Beitrag "https://www.herber.de/forum/archiv/1680to1684/1681309_Datenschnitt_ueber_eine_Zelle_Filtern.html" geholt) funktioniert es zwar mit einem Datenschnitt (die anderen habe ich noch nicht integriert), aber es wird immer eine Berechnung bzw. Aktualisierung ausgeführt.
Dadurch dauert es ewig, weil in der Datei noch mehr Pivot-Tabelen und Datenschnitte vorhanden sind. (Diese sollen aber nicht aktualisiert werden)
Verschiedene Möglichkeiten, die Berechnungen auszuschalten haben leider nicht funktioniert.
(Application.Calculation = xlCalculationManual zum Beispiel)
Ich hoffe Ihr könnt mir helfen. Viele Grüße
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i1 As Integer, i2 As Integer
If Target.Address = "$E$1" Then
Rem Application.ScreenUpdating = False
With ActiveWorkbook.SlicerCaches("Datenschnitt_location_id1")
.ClearManualFilter
i1 = .SlicerItems.Count
For i2 = 1 To i1
If .SlicerItems(i2).Caption = CStr(Target.Value) Then
.SlicerItems(i2).Selected = True
Else: .SlicerItems(i2).Selected = False
End If
Next i2
End With
Rem Application.ScreenUpdating = True
End If
End Sub