Warum erscheint beim Öffnen eines Excel-Blattes mit Worksheet_Activate und PivotTables(1).RefreshTable die Fehlermeldung 'Bezug ungültig'?

Antwort vom

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.

Verwandte Fragen

Excel-Formel für 100 × a / b?

Die Excel-Formel lautet: =100A1/B1 — damit berechnest du 100 mal den Wert in A1 geteilt durch den Wert in B1. Wenn a und b feste Zahlen sind, z. B. 100 × 5 / 20, dann schreibst du einfach...

Lässt sich eine OpenOffice-Präsentation in Excel öffnen?

Nein – Excel ist kein Präsentationsprogramm. Eine OpenOffice-Präsentation läuft grundsätzlich in PowerPoint oder OpenOffice Impress, aber nicht sinnvoll in Excel. Microsoft b...

Windows 7 64-Bit: api-ms-win-core-path-l1-1-0.dll fehlt – wie beheben?

Nein: Diese DLL solltest du nicht einzeln aus dubiosen DLL-Seiten „nachinstallieren“. Bei api-ms-win-core-path-l1-1-0.dll ist das auf Windows 7 meist kein fehlendes Einzelteil, sondern ein...

Gibt es eine kostenlose Alternative zu Excel für Android?

Ja: Die beste kostenlose Excel-Alternative auf Android ist meist Google Tabellen. Du kannst damit .xlsx-Dateien öffnen, bearbeiten und speichern; wenn du eher eine klassische Office-App willst, s...