Datenschnitt über eine Zelle Filtern (2)
15.12.2023 09:00:27
Ralf
nach lange Suche habe ich folgenden Thread gefunden, der genau das abbildet, was ich suche.
Leider habe ich ein Problem mit der Formatierung der Zelle bzw. dem damit verbundenen VBA-Code. Meine Kenntnisse dahin gehend sind sehr beschränkt.
Den Code aus dem Beitrag "Datenschnitt über eine Zelle filtern" würde genau mein Problem lösen.
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 SubDas Eingabefeld ist für Zahlen ausgelegt und da fängt mein Problem an.
Mein Datenschnitt arbeitet mit Datumswerten, sprich hier wird z.B. die Eingabe "Okt 2023" ausgewertet.
Für einen zweiten Datenschnitt sähe die Eingabe von "Okt 2022" bis "Okt 2023" aus.
Kann man den VBA-Code dahin gehend anpassen, das hier Datumsformate eingegeben werden könnten und diese Werte an den Datenschnitt übergeben werden könnten.
Ich hoffe, mein Problem einigermaßen verständlich rübergebracht zu haben. Ansonsten einfach nachfragen falls etwas unklar isr.
Bin für jede Hilfe sehr dankbar.
So long
Ralf
