PDA

Vollständige Version anzeigen : Pivot optimieren


Burzl89
01.07.2015, 08:05
Hallo Leute,

hier mein Pivot Code:

ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
SourceData:=rngDaten, _
Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:=rngZiel, _
TableName:="PivotTable1"
Sheets("Transformator in TrSt").Select
With ActiveSheet.PivotTables("PivotTable1")
With .PivotFields("Baujahr")
.Orientation = xlRowField
.Position = 1
End With
.AddDataField ActiveSheet.PivotTables("PivotTable1").PivotFields("Eigentümer"), "Anzahl von Eigentümer", xlCount
End With

Dieser Pivot wählt mir alle Daten aus.
Wie kann ich aber nur gelb markierte Zeilen auswerten lassen?
Ich weis nicht was ich wo einfügen mus in diesem Code damit er selektiert.

Mfg Burzl89

jack_D
09.07.2015, 11:41
Moin Moin

welche Gelb markierten Zeile?

Grüße