Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1680to1684
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Datenschnitt über eine Zelle Filtern

Datenschnitt über eine Zelle Filtern
14.03.2019 16:04:42
Dieter
Hallo zusammen,
ich stehe vor folgendem Problem:
In einer Zelle E3 soll ein Konto eingegeben werden z.B. 500000
Sobald die Zelle geändert wird soll bei einem Datenschnitt der auf eine Pivottabelle beruht, der Filter auf 500000 gesetzt werden.
Das ist mein Code, ich habe mich bereits halb tot gegoogelt. Leider gibt es keine Wirkung wenn ich die Zelle E3 verändere.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.adress = "$E$3" Then
ActiveWorkbook.SlicerCaches("Datenschnitt_Sachkonto").ClearManualFilter
ActiveWorkbook.SlicerCaches("Datenschnitt_Sachkonto").SlicerItems(Range("E3").Value). _
Selected = True
End If
End Sub

Mit freundlichen Grüße,
Dieter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datenschnitt über eine Zelle Filtern
14.03.2019 18:21:10
Luschi
Hallo Dieter,
bei mir klappt das so:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i1 As Integer, i2 As Integer
If Target.Address = "$E$3" Then
Application.ScreenUpdating = False
With ActiveWorkbook.SlicerCaches("Datenschnitt_Sachkonto")
.ClearManualFilter
i1 = .SlicerItems.Count
For i2 = 1 To i1
If .SlicerItems(i2).Caption  CStr(Target.Value) Then
.SlicerItems(i2).Selected = False
End If
Next i2
End With
Application.ScreenUpdating = True
End If
End Sub
Gruß von Luschi
aus klein-Paris
AW: Datenschnitt über eine Zelle Filtern
15.03.2019 09:45:26
Dieter
Hallo Luschi,
vielen Dank für die Mühe, es funktioniert genau so wie es sein soll.
Super!
Grüße,
Dieter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige