Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1180to1184
1180to1184
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pivot Bericht über VBA ansprechen

Forumthread: Pivot Bericht über VBA ansprechen

Pivot Bericht über VBA ansprechen
Karsten
Hallo liebe Excel Freunde,
ich hätte folgendes Problem.
In einem Pivotbericht soll nur eine bestimmte StationsNr im PivotFields("StationNr") ausgewählt werden. Ich habe dies über den Marco Recorder aufgenommen. Dies funktioniert aber nicht.
Zum Weiteren ist die Nummer 2303200 auch in einer Variablen hinterlegt, diese heißt TurbineID. Wie muss ich dies einbinden das das automatisch funktioniert?
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh 'Pivot- Tabelle aktualisieren
With ActiveSheet.PivotTables("PivotTable1").PivotFields("StationNr")
.PivotItems("(blank)").Visible = False
.PivotItems("2303200").Visible = False
End With
....
Danke im Vorraus
Anzeige
AW: Pivot Bericht über VBA ansprechen
07.10.2010 09:50:41
Luschi
Hallo Karste,
gerade bei Pivot-Vba kommt es auf korrekte Ansprache der Pivot-Felder an.
Wenn Du eine kleine Demodatei bereitstellst, sollte man damit besser zurecht kommen als
irgend welche Beschreibungen.
Gruß von Luschi
aus klein-Paris
AW: Pivot Bericht über VBA ansprechen
07.10.2010 18:26:12
Karsten
Hallo Lusch,
danke das Du geantwortet hast ich hatte schon Sorge es würde sich keiner melden.
Ich habe die Datei hochgeladen:
https://www.herber.de/bbs/user/71808.zip
Kannst Du Dir das mal anschauen, Es wäre toll wenn man die Möglichkeit hätte mehrere Turbine ID (von - bis) zu filtern. Bekommst Du das hin?
a) alle anzeigen
b) 1 anzeigen
c) von bis anzeigen
Danke im vorraus!
Gruß Karsten
Anzeige
AW: Pivot Bericht über VBA ansprechen
07.10.2010 18:29:02
Karsten
Entschuldigung,
ich meinte natürlich Luschi, abr das i auf meinem Laptop funktioniert nicht mehr so gut :-) brauch mal nen Neuen.
Karsten
AW: Pivot Bericht über VBA ansprechen
08.10.2010 09:28:57
Luschi
Hallo Karsten,
ich kann leider keine Lösung schicken, da die Pivot-Tabelle ständig nach den Quelldaten sucht, um Filterungen durchzuführen. Sobald ich ein Pivot-Feld ansprechen will, kommt diese Meldung:
Userbild
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Pivot Bericht über VBA ansprechen
08.10.2010 18:01:16
Karsten
Hi Luschi,
das ist merkwürdig, die Rohdaten waren m.E. direkt links neben der Pivottabelle. Ich habe den bericht noch einmal neu verlinkt unter:
https://www.herber.de/bbs/user/71819.zip
kannst Du die Datei jetzt herunterladen.
Danke für die Hilfe und sorry für das Missgeschick.
Gruß Karsten
Anzeige
AW: Pivot Bericht über VBA ansprechen
08.10.2010 20:25:55
Luschi
Hallo Karsten,
habe in Vba-Modul1 drei Makros hinterlegt, die helfen können, Pivottabellen-Probleme zu beseitigen.
Besonders das dritte 'DeleteOldPivotItemsWB' ist sehr zu empfehlen (mehr Infos dazu im Modul).
Wahrscheinlich ist auch Deine Originaltabelle davon betroffen so wie die bereitgestellte Testdatei.
Deshalb funktionierte auch der von Dir aufgezeichnete Vba-Code nicht, obwohl er richtig ist.
Kopiere also alle 3 Makros und starte sie dann; fange mit dem 3. Makro an.
Im Vba-Module2 ist dann das von Dir angeforderte Beispiel.
https://www.herber.de/bbs/user/71821.zip
Good luck und Gruß von Luschi
aus klein-Paris
Anzeige
AW: Pivot Bericht über VBA ansprechen
11.10.2010 17:06:42
Karsten
Hi Luschi,
danke für Deine Hilfe, es hat prima funktioniert jetzt kann ich ja mit der kleiner gleich und größer gleich Regel alle die Turbine ID selektieren. Seine Programmierung setzt natürlich vorraus, dass im Pivotbericht von vornherein alle TurbineID selektiert wurden und nichts abgewählt wurde sonst funktioniert das ganze nicht. Wie geht das nun das alle Turbine ID selektiert sind. Gibt es da vielleicht einen Befehl wie Select all - unabhängig davon ob diese alle in der Datenquelle zur Verfügung gestellt sind oder nicht.
Gruß aus Bremen nach Leipzig (meine Heimat)?
Anzeige
AW: Pivot Bericht über VBA ansprechen
12.10.2010 08:53:53
Luschi
Hallo Karsten,
alle Pivot-Einträge eines Fesldes zu aktivieren geht so: 

Sub alle_PivotItem_Anzeigen()
Dim pi As PivotItem
'Bildschirmaktualisierung ausschalten
Application.ScreenUpdating = False
With ActiveSheet.PivotTables("PivotTable1").PivotFields("StationNr")
'alle Einträge bis auf einen deaktivieren
For Each pi In .PivotItems
pi.Visible = True
Next pi
End With
Set pi = Nothing
'wieder einschalten
Application.ScreenUpdating = True
End Sub
Gruß von Luschi
aus klein-Paris
Anzeige
;

Forumthreads zu verwandten Themen

VBA Pivot Lastrow für Tabledestination
Malte

Hallo,
ich habe ein Tabellenblatt auf dem vier Pivottabellen dargestellt werden sollen. Zwei nebeneinander und zwei darunter.
Zuerst werden die oberen beiden Pivottabellen eingefügt per Makro. Da die erstellten Pivots in der länge variieren können, möchte ich für die zwei darunter kein...
27.11.2013 15:24:14
Thread-ID: 1340254
9 Beiträge
VBA Makro: Von PivotTable zur Chart
Furkan

Hallo Leute,
ich habe ein Pivot Schema mit einem MacroRecorder aufgezeichnet.
Jedoch wird bei der Erstellung der PivotChart aus einer Pivot Tabelle, nicht die Pivot Tabelle angesprochen, sondern die Range in der sich die PivotTabelle befindet.
Das Problem ist, dass nicht immer die T...
04.02.2015 10:21:14
Thread-ID: 1407169
3 Beiträge
[VBA] Pivotcharts / Pivottables zählen lassen
MaWe

Wie kann ich per VBA Pivottables und oder Pivot Charts zählen lassen?
mit ?ActiveWorkbook.Worksheets.Count kann ich die Arbeitsblätter zählen, aber für die anderen beiden habe ich noch keine Lösung gefunden.
10.08.2015 10:10:16
Thread-ID: 1441383
8 Beiträge
Anzeige
VBA - Pivot-Table Zeile ausblenden
Alex

Hallo Leute,
Ich möchte in meiner PivotTable eine ganze Zeile ausblenden lassen.
Zum Verständnis:
Meine PivotTable ist in Tabellenform dargestellt, sprich es gibt verschiedene spalten die mit best. infos gefüllt sind (z.B. ID, Name, Kontaktperson)
Mein Ziel ist es sozusagen ein...
19.03.2018 13:31:44
Thread-ID: 1615060
2 Beiträge
VBA Makro Pivot Table
Marie

Hallo,
Ich habe ein Excelblatt mit Daten und moechte mit Hilfe eines Makros auf einem zweiten Excelblatt eine Pivottabelle erstellen. Wie schreibe ich das zugehoerige Makro in VBA?
Range Spalten A bis R.
Die Zeilen des Datenblattes veraendern sich monatlich. Daher kann ich keine fes...
21.09.2018 16:15:28
Thread-ID: 1647049
2 Beiträge
VBA Pivot-Table
Chris

Hallo Zusammen,
mein Problem bezieht sich auf die Pivot-Tables.
Wenn ich ein neues Feld in den Datenbereich ziehe wird manchmal die Summe und manchmal die Anzahl der jeweiligen Kategorie angezeigt. nun meine Frage:
Besteht die Möglichkeit in dem VBA Code zu hinterlegen, dass es imm...
13.09.2005 14:54:14
Thread-ID: 666552
6 Beiträge
VBA PivotTables aktualisieren
Manfred

Hallo,
ich habe mir per Makrorecoder etwas aufgezeichnet und habe nun folgendes Problem.
die Zeile:
Sub Test() ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh End Sub
zerstört mir alle vorher vorhandenen Gruppierungen. Als ich die Schritte im einzelnen aufgezeichnet...
13.07.2006 14:44:43
Thread-ID: 781911
7 Beiträge
Anzeige
VBA: Pivottable-Array aus Excel auslesen
Andrea
Hallo zusammen,
aus dem Forum hier habe ich von Michael den folgenden Code übernommen:
Sub a() Dim Wb As Workbook: Set Wb = ThisWorkbook Dim Ws As Worksheet: Set Ws = Wb.Worksheets("AfA") Dim p As PivotTable: Set p = Ws.PivotTables("PivotTable2") Dim f As PivotField: Set f = p.PivotFields("...
19.10.2021 10:34:28
Thread-ID: 1852458
15 Beiträge
VBA Datumsfilter PivotTable
maylmz
Guten Morgen zusammen,

ich möchte bei meinem PivotTable einen Datumsfilter per VBA =heute.
Bei einem anderen Tabellenblatt mit einer intelligenten Tabelle habe ich das selbe gebraucht und mit folgendem Code aus dem Netz lösen können:

Worksheets("Tabelle1").Range("A1").AutoFilt...
14.02.2024 09:20:30
Thread-ID: 1965229
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Pivot Bericht über VBA ansprechen

Schritt-für-Schritt-Anleitung

  1. Pivot-Tabelle aktualisieren

    ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh

  2. Bestimmte StationNr im Pivot-Feld auswählen

    With ActiveSheet.PivotTables("PivotTable1").PivotFields("StationNr")
   .PivotItems("(blank)").Visible = False
   .PivotItems("2303200").Visible = True ' Hier die TurbineID einfügen
End With

  3. Alle Pivot-Items anzeigen Wenn Du alle TurbineIDs in der Pivot-Tabelle aktivieren möchtest, kannst Du folgendes Makro verwenden:

    Sub alle_PivotItem_Anzeigen()
   Dim pi As PivotItem
   Application.ScreenUpdating = False
   With ActiveSheet.PivotTables("PivotTable1").PivotFields("StationNr")
       For Each pi In .PivotItems
           pi.Visible = True
       Next pi
   End With
   Application.ScreenUpdating = True
End Sub

Häufige Fehler und Lösungen

  • Problem: Fehlermeldung bei der Filterung

    • Lösung: Stelle sicher, dass die Rohdaten direkt neben der Pivot-Tabelle liegen. Wenn die Daten nicht gefunden werden, überprüfe die Quelle der Pivot-Tabelle.

  • Problem: PivotItems nicht sichtbar

    • Lösung: Verwende das Makro alle_PivotItem_Anzeigen, um alle Einträge in deinem Pivot-Feld sichtbar zu machen.

Alternative Methoden

  • Direktes Filtern über die Benutzeroberfläche: Du kannst die Filteroptionen in der Pivot-Tabelle direkt nutzen, um bestimmte Werte auszuwählen oder auszublenden.

  • Verwendung von Slicern: Slicer sind eine benutzerfreundliche Methode, um Daten in Pivot-Tabellen zu filtern. Sie ermöglichen eine visuelle Auswahl der Daten, die Du anzeigen möchtest.

Praktische Beispiele

  • Beispiel 1: Filtern nach einer bestimmten TurbineID

    Dim TurbineID As String
TurbineID = "2303200"
With ActiveSheet.PivotTables("PivotTable1").PivotFields("StationNr")
  .PivotItems("(blank)").Visible = False
  .PivotItems(TurbineID).Visible = True
End With

  • Beispiel 2: Mehrere TurbineIDs filtern

    Dim i As Integer
Dim TurbineIDs As Variant
TurbineIDs = Array("2303200", "2303201", "2303202")

With ActiveSheet.PivotTables("PivotTable1").PivotFields("StationNr")
  For i = LBound(TurbineIDs) To UBound(TurbineIDs)
      .PivotItems(TurbineIDs(i)).Visible = True
  Next i
End With

Tipps für Profis

  • Verwende den VBA-Editor: Nutze den VBA-Editor, um Deine Makros zu testen und anzupassen. Du kannst den Code Schritt für Schritt durchlaufen, um Fehler zu identifizieren.

  • Dokumentiere Deine Makros: Halte eine Dokumentation für Deine VBA-Makros bereit, damit Du die Funktionalitäten schnell verstehen und bei Bedarf anpassen kannst.

  • Nutze die Option Explicit: Füge am Anfang Deiner Module Option Explicit hinzu, um sicherzustellen, dass alle Variablen deklariert werden. Dies hilft, Fehler zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich mehrere PivotItems gleichzeitig auswählen? Du kannst eine Schleife verwenden, um mehrere Items in Deinem Pivot-Feld sichtbar zu machen, wie im Beispiel alle_PivotItem_Anzeigen gezeigt.

2. Was kann ich tun, wenn die Pivot-Tabelle nicht aktualisiert wird? Überprüfe, ob die Quelldaten richtig verlinkt sind und führe gegebenenfalls einen Refresh der Pivot-Tabelle durch. Stelle sicher, dass die Datenquelle aktuell ist.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige