Laufzeitfehler 1004 bei Pivottabelle
14.08.2015 19:34:58
LKro1976
Hintergrund: Ich möchte in einer Pivottabelle bestimmte Einträge sichtbar, andere unsichtbar machen. Das klappt solange mit angehängtem Skript, wenn die Werte z. B. "Ja - Kündigung" in der Quelltabelle vorhanden sind.
Die Quelltabelle hat jedoch manchmal alle die im Skript genannten Werte, an manchen Tagen _
fehlen einige. Dann kommt der Laufzeitfehler. Ich möchte aber eine VBA-Skript haben, dass immer _
funktioniert, unabhängig davon, ob die Werte vorhanden sind oder nicht. So dass für den Fall, _
das sie vorhanden sind, die richtigen Filter Einstellungen gesetzt werden.
Sub Auto_Open()
' Formatierung im Register "Kündigungen (MB)" ausführen
Sheets("Kündigungen (MB)").Select
ActiveSheet.PivotTables("Kündigungen (MB)").PivotCache.Refresh
With ActiveSheet.PivotTables("Kündigungen (MB)").PivotFields("Zielfeldrelevanz")
.PivotItems("Ja - Kündigung").Visible = True
.PivotItems("Ja - KüRü").Visible = True
.PivotItems("Nein - NRHW").Visible = True
.PivotItems("Nein - unwirksame Kündigung").Visible = False
.PivotItems("(blank)").Visible = False
End With
End Sub
Weiß jemand wie ich das hinbekomme? Welche Änderungen muss ich z. B. im Skript vornehmen, wenn "Ja - Kündigung" nicht immer verfügbar ist.
Vorab vielen Dank für die Unterstützung.