Pivot Änderungen im VBA
27.12.2012 14:36:51
Friedhelm
ich hoffe mir kannjemand bei meinem Pivot-Problem helfen.
Ich habe 3 Zeilenfelder. In den Spaltenfeldern (Datum) werden regelmäßig Daten hinzugefügt. Zu unterschiedlichen Zeiten (Spaltenfeld Datum) werden keine Daten mehr in bestimmte Zeilenfelder geschrieben.
Diese Zeilenfelder würde ich gerne ausblenden. Dazu habe ich mit dem Makrorekorder aufgezeignet, wie ich aus dem Dropdown des Zeilenfeldes das Anzeigehäckchen rausnehme.
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Artikelnummer")
.PivotItems("251188609535").Visible = False
End With
Ich würde dieses gerne in mein vereinfachtes Makro einbauen:
Range("b6").Select
Do
An = ActiveCell(1, 1)
If ActiveCell(1, n) = "" Then
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Artikelnummer")
.PivotItems("An").Visible = False
End With
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
Hierbei erhalte ich die Fehlermeldung:
Die PivotItem-Eigenschaft des PivotField-Objektes kann nicht zugeordnet werden
Wie kann ich das Problem mit meinen geringen VBA Kenntnissen beseitigen.
Schönen Gruß
Friedhelm