Hallo zusammen,
Ich wende mich an euch, weil meine VBA-Kenntnisse noch nicht ausreichend sind um folgendes Problem zu lösen und ich durch euer Forum schon oft Hilfe gefunden habe.
Ich habe eine Liste mit Daten und generiere daraus eine Pivottabelle. Ich bin soweit, dass ich mir per Makro Filter in meiner Pivottabelle setzen kann. Allerdings möchte ich in einem Filter nicht nur das eine Filterelement auswählen, sondern das eine und alle größeren (folgenden) ebenfalls. Quasi wenn mir das Makro einen Filter auf die Zahl "2" setzt, das ebenfalls die Zahlen "3","4", usw. bis zum größten Filterelement aktiviert werden.
Aus dem "Rechnungsblatt_short" wird die Zeile übernommen, aus der das Filterelement eingestellt werden soll.
Ich hoffe ich habe mich einigermaßen verständlich ausgedrückt. Mein momentaner Code sieht wie folgt aus:
Sub Makrofiltern()
Dim lngR As Long
lngR = ActiveCell.Row
Worksheets("Tabelle1").PivotTables("PivotTable1").PageFields("Filter1").CurrentPage = _
Worksheets("Rechnungsblatt_short").Cells(lngR, 23).Text
Worksheets("Tabelle1").PivotTables("PivotTable1").PageFields("Filter2").CurrentPage = _
Worksheets("Rechnungsblatt_short").Cells(lngR, 27).Text
Worksheets("Tabelle1").PivotTables("PivotTable1").PageFields("Filter3").CurrentPage = _
Worksheets("Rechnungsblatt_short").Cells(lngR, 25).Text
Worksheets("Tabelle1").PivotTables("PivotTable1").PageFields("Filter4").CurrentPage = _
Worksheets("Rechnungsblatt_short").Cells(lngR, 28).Text
Worksheets("Tabelle1").PivotTables("PivotTable1").PageFields("Filter5").CurrentPage = _
Worksheets("Rechnungsblatt_short").Cells(lngR, 11).Text
End Sub
Vielen Dank im voraus für eure Hilfe.
Mit freundlichen Grüßen,
Julian |