|
Hallo Ihr Lieben,
Ich habe eine Fragen an euch und hoffe Ihr könnt mit helfen.
Ich habe eine Pivot Tabelle, welche auf eine Übersicht von Angeboten zugreift. Ich möchte, daa ich in zwei Zelle das Datujm eingeben kann und mir dann durch das Klicken auf einen Button die Pivot Tabelle nach den Daten in diesem Bereich gefilter wird. Ich habe schon wie verrückt gesucht, aber bisher keine Lösung für mein Problem gefunden. Immer wieder treten Fehler ud ich bin leider in VBA nicht bewandert genug um diese selber zu lösen.
Hier der Code, den ich bisher habe:
Sub cmdDatum_Click()
Dim pvtF As PivotFields
Dim pvtI As PivotItems
ActiveSheet.PivotTables("PivotTable1").PivotFields ("Datum")
For Each pvtI In pvtF.PivotItems
If DateValue("pvtI.Value") >= Range("F8").Value2 And DateValue("pvtI.Value") <= Range("F9").Value2 Then
pvtI.Visible = True
Else
pvtI.Visible = False
End If
Next pvtI
End Sub
Ich bekomme den Fehler: Laufzeitfehler '91':
Objektvariable oder With-Blockvariable nicht festegelt.
Ich bin für alle Anmerkungen dankbar
|