Thema Datum  Von Nutzer Rating
Antwort
Rot Pivot Tabelle mit VBA ändern
19.02.2025 14:12:01 Tom41
NotSolved
19.02.2025 14:14:40 Gast89324
NotSolved
19.02.2025 14:33:52 cysu11
NotSolved
19.02.2025 14:57:27 Gast95715
NotSolved
19.02.2025 15:28:21 cysu11
NotSolved
19.02.2025 15:58:30 Gast92119
NotSolved
19.02.2025 16:05:24 ralf_b
NotSolved
19.02.2025 16:18:20 Gast61324
NotSolved
19.02.2025 17:38:10 Gast96201
Solved

Ansicht des Beitrags:
Von:
Tom41
Datum:
19.02.2025 14:12:01
Views:
92
Rating: Antwort:
  Ja
Thema:
Pivot Tabelle mit VBA ändern
Liebe VBA Spezialisten, ich möchte in alten Dateien die Pivot Tabellen per Makro ändern so, dass die Daten nicht mehr in der Pivot Tabelle gespeichert werden. Dadurch möchte ich die Dateien verkleinern. Dies ist der Befehl:

 ActiveSheet.PivotTables("PivotTable1").SaveData = False

In meinem Programm schaffe ich es aber nicht die Pivot Tabelle anzusprechen: (pt) klappt nicht

Sub PivotÄndernIn_OhneDatenSpeichern() Dim St As Worksheet Dim NewSt As Worksheet Dim pt As PivotTable Dim i, K As Long Application.ScreenUpdating = False i = 1: K = 2 For Each St In ActiveWorkbook.Worksheets For Each pt In St.PivotTables ActiveSheet.PivotTables(pt).SaveData = False Next Next End Sub


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Pivot Tabelle mit VBA ändern
19.02.2025 14:12:01 Tom41
NotSolved
19.02.2025 14:14:40 Gast89324
NotSolved
19.02.2025 14:33:52 cysu11
NotSolved
19.02.2025 14:57:27 Gast95715
NotSolved
19.02.2025 15:28:21 cysu11
NotSolved
19.02.2025 15:58:30 Gast92119
NotSolved
19.02.2025 16:05:24 ralf_b
NotSolved
19.02.2025 16:18:20 Gast61324
NotSolved
19.02.2025 17:38:10 Gast96201
Solved