in einer Schleife vergleiche ich die Items eines Pivot-Feldes mit einer Konstanten. Wenn sie kleiner (es handelt sich um Datums (?) im JJJJMMTT - Format als String) sind, sollen sie eingeblendet werden, wenn nicht dann ausgeblendet.
Leider kommt die Fehlermeldung 1004: Die Visible-Eigenschaft des PivotItems-Objektes kann nicht festgelegt werden.
Wenn ich dann mal True und False tausche, funktioniert es kurz, steht dann aber doch wieder (erst bei x=1, dann bei x=89). In dem aktuellen Markierungszustand kann ich leider keine dementsprechende Musterung finden.
Hier mein Code:
Worksheets("Pivot").Select
Range("A1").Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Start")
c = .PivotItems.Count
For x = 1 To .PivotItems.Count
If .PivotItems(x).Name < heute_pivot Then 'heute_pivot: Vergleichdatum in JJJJMMTT wie Items in String
.PivotItems(x).Visible = True
Else
.PivotItems(x).Visible = False
End If
Next x
End With
Vielen Dank erstmal,
Felix