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

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.