Thema Datum  Von Nutzer Rating
Antwort
20.03.2017 16:50:04 Markus
NotSolved
Blau Pivot-Filter per VBA auslesen
 25.03.2017 15:12:54 BigBen
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
25.03.2017 15:12:54		 Views:
1375		 Rating:
     
Antwort:
  Ja
Thema:
Pivot-Filter per VBA auslesen

Hallo,

der Beitrag liest sich sehr schlecht, da alles in eine Zeile vorhanden ist.

Dein VBA-Code ist folgender:

Sub Pivotfilter_auslesen()
    'Makro muss aus dem Tabellenblatt, das die Pivottabelle enthält, heraus gestartet werden
    Dim AnzahlFelder As Byte
    Dim Zähler As Byte
    Dim Filternummer As Byte
    Dim Anzahl As Long
    With ActiveSheet.PivotTables("PivotTable2")
        AnzahlFelder = .PivotFields.Count
        Filternummer = 1
        For Zähler = 1 To AnzahlFelder
            Debug.Print .PivotFields(Zähler).Name, .PivotFields(Zähler).Orientation
            If .PivotFields(Zähler).Orientation = xlPageField Then
                Worksheets("Legende").Cells(1, Filternummer).Value = .PivotFields(Zähler).Name
                Filternummer = Filternummer + 1
            End If
        Next Zähler
        Anzahl = .PivotFields("Alter").PivotItems.Count
    End With
    For Zähler = 1 To Anzahl
        Worksheets("Legende").Cells((Zähler + 1), 1).Value = _
            ActiveSheet.PivotTables("PivotTable2").PivotFields("Alter").PivotItems(Zähler).Name
    Next Zähler
End Sub

Wie weitere Details aus Pivot-Tabellen ausgelesen werden können, wird auf dieser Webseite diskutiert.

Der interessante Teil ist erst am Ende der Webseite zu finden.

Eventuell helfen Dir diese Infos weiter?

LG, BigBen

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
20.03.2017 16:50:04 Markus
NotSolved
Blau Pivot-Filter per VBA auslesen
 25.03.2017 15:12:54 BigBen
NotSolved