Pivotdatenquelle per VBA ändern
Schritt-für-Schritt-Anleitung
Um die Datenquelle einer Pivottabelle in Excel per VBA zu ändern, befolge diese Schritte:
-
Öffne den Visual Basic for Applications (VBA) Editor:
- Drücke
Alt + F11, um den VBA-Editor zu öffnen.
-
Erstelle ein neues Modul:
- Klicke mit der rechten Maustaste auf „VBAProject (deine_datei.xlsx)“ und wähle „Einfügen“ > „Modul“.
-
Füge den folgenden VBA-Code ein:
Sub TauschePivotDatenQuelleACCESS()
' Beispiel: Ändere die Datenquelle einer Pivottabelle
ActiveWorkbook.PivotCaches(1).CommandText = _
Replace(ActiveWorkbook.PivotCaches(1).CommandText, "Tabelle1", "Tabelle2")
End Sub
- Dieser Code ersetzt „Tabelle1“ durch „Tabelle2“ in der SQL-Abfrage der Pivottabelle.
-
Führe das Makro aus:
- Drücke
F5, während der Cursor im Code ist, um das Makro auszuführen.
-
Überprüfe die Pivottabelle:
- Gehe zurück zu Excel und aktualisiere die Pivottabelle, um sicherzustellen, dass die neuen Daten angezeigt werden.
Häufige Fehler und Lösungen
Alternative Methoden
Eine andere Möglichkeit, die Datenquelle einer Pivottabelle zu ändern, besteht darin, die PivotTableWizard-Methode zu verwenden. Hier ist ein Beispiel:
Sub ÄnderePivotDatenquelle()
ActiveSheet.PivotTableWizard SourceType:=xlExternal, SourceData:="XYDB.dbo.View_Daten2"
End Sub
Diese Methode ist nützlich, wenn du direkt mit externen Datenquellen arbeiten möchtest, ohne die SQL-Abfrage zu ändern.
Praktische Beispiele
Angenommen, du hast eine Pivottabelle, die sich auf „Tabelle1“ einer Access-Datenbank bezieht. Um die Datenquelle auf „Tabelle2“ zu ändern, kannst du den folgenden VBA-Code verwenden:
Sub WechselDatenquelle()
With ActiveWorkbook.PivotCaches(1)
.CommandText = Replace(.CommandText, "Tabelle1", "Tabelle2")
.Refresh
End With
End Sub
Dieser Code sorgt dafür, dass die Pivottabelle auf die neuen Daten zugreift, ohne dass du manuell eingreifen musst.
Tipps für Profis
-
Verwende PivotTable.PivotCache.Refresh: Nach dem Ändern der Datenquelle ist es wichtig, die Pivottabelle zu aktualisieren. Das kannst du mit .Refresh erreichen.
-
Dokumentiere deinen Code: Füge Kommentare hinzu, um die Funktion jedes Teils deines Codes zu erklären, besonders wenn du mit mehreren Datenquellen arbeitest.
-
Teste in einer sicheren Umgebung: Bevor du Änderungen an einer wichtigen Datei vornimmst, teste deinen VBA-Code in einer Kopie der Datei.
FAQ: Häufige Fragen
1. Kann ich die Datenquelle einer Pivottabelle auch manuell ändern?
Ja, du kannst die Datenquelle manuell ändern, indem du auf die Pivottabelle klickst, dann auf „PivotTable-Analyse“ und „Datenquelle ändern“ wählst.
2. Funktioniert dieser VBA-Code auch mit Excel Online?
Leider werden VBA-Makros in Excel Online nicht unterstützt. Du musst die Desktop-Version von Excel verwenden.
3. Gibt es Einschränkungen bei der Verwendung von externen Datenquellen?
Ja, stelle sicher, dass die Struktur der neuen Datenquelle mit der alten übereinstimmt, damit die Pivottabelle korrekt aktualisiert werden kann.
