1 Frage zu Pivottable

Die Fehlermeldung „Bezug ungültig“ beim Ausführen von `PivotTables(1).RefreshTable` in der `Worksheet_Activate`-Prozedur deutet darauf hin, dass die PivotTable entweder nicht existiert, beschädigt ist oder ihr Datenbereich nicht mehr gültig ist. **Mögliche Ursachen und Lösungen:** 1. **PivotTable existiert nicht:** Prüfe, ob auf dem betreffenden Arbeitsblatt tatsächlich mindestens eine PivotTable vorhanden ist. ```vba If Me.PivotTables.Count > 0 Then Me.PivotTables(1).RefreshTable End If ``` 2. **Ungültiger Datenbereich:** Wenn sich der Quellbereich der PivotTable geändert oder gelöscht wurde, kann die PivotTable nicht aktualisiert werden. Öffne die PivotTable und prüfe unter „PivotTable-Analyse“ → „Datenquelle ändern“, ob der Bereich noch existiert. 3. **PivotTable ist beschädigt:** In seltenen Fällen kann eine PivotTable beschädigt sein. Lösche sie und erstelle sie neu. 4. **Falsches Arbeitsblatt:** Stelle sicher, dass der Code im richtigen Arbeitsblatt-Modul steht und sich auf das richtige Blatt bezieht. 5. **Externe Datenquelle:** Wenn die PivotTable auf eine externe Datenquelle zugreift, stelle sicher, dass die Verbindung besteht. **Beispiel für eine sichere Implementierung:** ```vba Private Sub Worksheet_Activate() On Error Resume Next If Me.PivotTables.Count > 0 Then Me.PivotTables(1).RefreshTable End If On Error GoTo 0 End Sub ``` **Zusätzlicher Tipp:** Wenn du mehrere PivotTables hast, kann es sinnvoll sein, alle zu aktualisieren: ```vba Private Sub Worksheet_Activate() Dim pt As PivotTable For Each pt In Me.PivotTables pt.RefreshTable Next pt End Sub ``` **Fazit:** Die Fehlermeldung „Bezug ungültig“ weist meist auf ein Problem mit der Datenquelle oder der Existenz der PivotTable hin. Überprüfe die genannten Punkte, um das Problem zu beheben.