MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 14.05.2019, 08:18   #1
golochim
MOF User
MOF User
Standard Excel 2013 - Pivottabelle mit VBA bearbeiten

Hallo,

ich stehe vor einem Problem, was ich nicht lösen kann.
Ich habe eine Pivottabelle, die mit VBA bearbeitet werden soll. Dazu habe ich ein Makro
Code:

Sub PT_Leer()

     For Each pf In ActiveSheet.PivotTables("PivotTable3").PivotFields
         pf.Orientation = xlHidden
     Next
   
End Sub
Mit diesem Makro kann ich die Felder aus der Pivottabelle löschen. Mein Problem ist jetzt, dass alle Felder gelöscht werden. Ich möchte aber, dass z.B. das Feld Filiale immer stehen bleibt.
Wie könnt ich das in dem Makro einbauen??

Gruß

Jojo
golochim ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.05.2019, 09:05   #2
ReginaR
MOF Profi
MOF Profi
Standard

ungetestet:
Sub PT_Leer()

For Each pf In ActiveSheet.PivotTables("PivotTable3").PivotFields
if pf.name <>"Filiale" then
pf.Orientation = xlHidden
end if
Next

End Sub


Gruß
Regina
ReginaR ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.05.2019, 10:11   #3
golochim
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Regina,
vielen Dank für die schnelle Antwort. Es funktioniert auch, aber ich hätte jetzt noch eine Frage. Mit dem Makro werden alle Felder gelöscht. Gibt es auch die Möglichkeit, dass die Formeln in den einzelnen Spalten stehen bleiben? Könnte man diese auch so ausschließen wie die "Filiale"?

Gruß

Jojo
golochim ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.05.2019, 13:19   #4
ReginaR
MOF Profi
MOF Profi
Standard

.... was meinst Du mit Formeln? In einer Pivot sind ja im eigentlichen Sinne keine Formeln hinterlegt, oder hast Du berechnete Felder?

Am Besten mal eine Beispieldatei hochladen.
Gruß
Regina
ReginaR ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:17 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.