|
Hallo Zusammen,
hätte da mal eine Frage hinsichtlich der Möglichkeit, mittels einer Variablen eine Pivotspalte (hier Datumsspalte) zu filtern.
Mein Code sieht aktuell so aus, dass ich das Makro "Filter" über ein Calculate Makro in einem Arbeitsblatt Lookup_Zeitreihe calle:
Option Explicit
Private Sub Worksheet_Calculate()
With Range("i1")
If .Value >= 0 Then
Call Filter
End If
End With
End Sub
Dim var As String
Sub Filter ()
Sheets("Lookup_Zeitreihe").Select
Range("i1").Select
var = Range("i1").Value
Sheets("Tabelle1").Select
ActiveSheet.PivotTables("PivotTable1").PivotFields("Datum").PivotFilters.Add2 _
Type:=xlBeforeOrEqualTo, Value1:=var
Der Wert aus i1 ist eigentlich im Format "dd.mm.yyyy" dargestellt, hatte aber schon im Netz gesehen,
dass es als String abgespeichert werden soll, leider ohne Erfolg.
DIe Fehlermeldung die ich erhalte lautet:
Laufzeitfehler '1004' Anwendungs- oder objektorientierter Fehler.
Kann mir da jemand vielleicht weiterhelfen?
Beste Grüße!
Kevin
|