Die Formel erzeugt eine Folge von Datumswerten im 2‑Wochen-Abstand und zeigt sie nur dann an, wenn das berechnete Datum vor einem Stichtag kurz vor dem 1. September von aktJahr liegt. Was die Formel k...
Warum erscheint beim Öffnen eines Excel-Blattes mit Worksheet_Activate und PivotTables(1).RefreshTable die Fehlermeldung 'Bezug ungültig'?
Antwort vomDie 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
Was bedeutet „Größenbegrenzung der Ergebnismenge überschritten“ in einem SAP-BW-Query in Excel?
Das bedeutet: Dein SAP-BW-Query würde mehr Daten an Excel zurückgeben, als für die Ergebnismenge erlaubt ist – deshalb bricht die Abfrage ab. In der Praxis heißt das fast i...
Wie übertrage ich Adressdaten aus Excel in Avery Zweckform 3481 in Word?
Am schnellsten geht das über den Seriendruck in Word: Excel-Liste sauber vorbereiten, Avery/Zweckform 3481 als Etikettenformat wählen und dann die Adressfelder mit der Excel-Datei verknü...