anbei eine Beispielmappe leider nur ein Bild davon, da die orginal datei zu groß war , hoffen dennoch es reicht für die fragestellung , ist es möglich via combobox oder ähnlich, einen Filter nur über die Kreditoren NR zu legen ?
in etwa so ,combobox mit kreditoren nummer bei Auswahl zeige alle was zu 2000 gehört usw ?
https://www.herber.de/bbs/user/77735.xls
momentan filtere ich mit combobox nach Top 3, 4 ,5 ,alle Wert ,das funktioniert soweit ganz gut
Arbeitsmappe
Private Sub Workbook_Open()
Worksheets("pivot").ComboBox2.List = _
Array("TOP_3", "TOP_4", "TOP_5", "Alle")
End Sub
Modul
Public Sub TOP_3()
Range("c3").Select
ActiveSheet.PivotTables("test").PivotFields("Kreditor").AutoShow xlAutomatic, _
xlTop, 3, "Summe - Betrag Hauswähr in EUR"
MsgBox "TOP 3"
End Sub
Public Sub TOP_4()
Range("c3").Select
ActiveSheet.PivotTables("test").PivotFields("Kreditor").AutoShow xlAutomatic, _
xlTop, 4, "Summe - Betrag Hauswähr in EUR"
MsgBox "TOP 4"
End Sub
Public Sub TOP_5()
Range("c3").Select
ActiveSheet.PivotTables("test").PivotFields("Kreditor").AutoShow xlAutomatic, _
xlTop, 5, "Summe - Betrag Hauswähr in EUR"
MsgBox "TOP 5"
End Sub
Public Sub Alle()
Range("c3").Select
ActiveSheet.PivotTables("test").PivotFields("Kreditor").AutoShow xlManual, _
xlTop, 3, "Summe - Betrag Hauswähr in EUR"
MsgBox "Alle"
End Sub
Vielen Dank
René