Ich habe ein Macro für eine Pivot Tabelle vom Excel Forum bekommen. Es soll alle Einträge in einer Pivot-Tabelle im Feld "StationNr" deaktivieren. Das funktioniert auch bis zu dem Zeitpunkt wenn er auf das Feld "leer" kommt. Dieses Leer Feld muss ja auch aktiviert bleiben, wenn man das manuell in Excel zusätzlich abwählt bekommt man eine Fehlermeldung! Habt Ihr eine Ahnung wie man das Macro so ändert um alles zu deaktivieren bis auf das Feld "leer" und dann die Schleife beendet wird?
1. Beispiel aus dem Forum:
Sub kein_PivotItem_Anzeigen()
Dim pi As PivotItem
With ActiveSheet.PivotTables("PivotTable1").PivotFields("StationNr")
'alle Einträge bis auf einen deaktivieren
For Each pi In .PivotItems
pi.Visible = False
Next pi
End With
Set pi = Nothing
End Sub
2. Mein Versuch:
'alle Einträge bis auf "Leer"deaktivieren
With ActiveSheet.PivotTables("PivotTable1").PivotFields("StationNr")
For Each pi In .PivotItems
If pi.Caption "leer" Then
pi.Visible = False
End If
Next pi
End With
Danke im Vorraus!
Karsten