Hallo Tüftler,
habe mal wieder ein Problem zu dem ich nicht auf die Lösung komme.
In meiner Pivot Tabelle sollen die Daten (Bestelllisten) von den jeweiligen Wochen addiert werden. Das heißt, wenn Produkt A in Woche 1 10x verkauft wurde und in Woche 2 23x, soll das in Woche 2 addiert dann Produkt A: 33x. Habe dazu auch ein Makro geschrieben, damit jede Woche erneut dazuaddiert wird.
Das klappt soweit alles wie ich will. Allerdings kann es bei manchen Produkten sein, dass sie in manchen Wochen nicht verkauft wurden. Wenn ich die Berechnung in diesem Fall mache bekomme ich eine Fehlermeldung des Makros, dass die betreffenden Daten nicht vorhanden sind.
Hier der Code:
ActiveSheet.PivotTables("PivotTable2").PivotFields("Woche").CalculatedItems. _
Add "1. Woche", "='1'", True
ActiveSheet.PivotTables("PivotTable2").PivotFields("Woche").CalculatedItems. _
Add "2. Woche", "='1. Woche' +'2'", True
ActiveSheet.PivotTables("PivotTable2").PivotFields("Woche").CalculatedItems. _
Add "3. Woche", "='2. Woche' +'3'", True
ActiveSheet.PivotTables("PivotTable2").PivotFields("Woche").CalculatedItems. _
Add "4. Woche", "='3. Woche' +'4'", True
ActiveSheet.PivotTables("PivotTable2").PivotFields("Woche").CalculatedItems. _
Add "5. Woche", "='4. Woche' +'5'", True
ActiveSheet.PivotTables("PivotTable2").PivotFields("Woche").CalculatedItems. _
Add "6. Woche", "='5. Woche' +'6'", True
ActiveSheet.PivotTables("PivotTable2").PivotFields("Woche").CalculatedItems. _
Add "7. Woche", "='6. Woche' +'7'", True
ActiveSheet.PivotTables("PivotTable2").PivotFields("Woche").CalculatedItems. _
Add "8. Woche", "='7. Woche' +'8'", True
ActiveSheet.PivotTables("PivotTable2").PivotFields("Woche").CalculatedItems. _
Add "9. Woche", "='8. Woche' +'9'", True
ActiveSheet.PivotTables("PivotTable2").PivotFields("Woche").CalculatedItems. _
Add "10. Woche", "='9. Woche' +'10'", True
ActiveSheet.PivotTables("PivotTable2").PivotFields("Woche").CalculatedItems. _
Add "11. Woche", "='10. Woche' +'11'", True
ActiveSheet.PivotTables("PivotTable2").PivotFields("Woche").CalculatedItems. _
Add "12. Woche", "='11. Woche' +'12'", True
ActiveSheet.PivotTables("PivotTable2").PivotFields("Woche").CalculatedItems. _
Add "13. Woche", "='12. Woche' +'13'", True
ActiveSheet.PivotTables("PivotTable2").PivotFields("Woche").CalculatedItems. _
Add "14. Woche", "='13. Woche' +'14'", True
ActiveSheet.PivotTables("PivotTable2").PivotFields("Woche").CalculatedItems. _
Add "15. Woche", "='14. Woche' +'15'", True
ActiveSheet.PivotTables("PivotTable2").PivotFields("Woche").CalculatedItems. _
Add "16. Woche", "='15. Woche' +'16'", True
ActiveSheet.PivotTables("PivotTable2").PivotFields("Woche").CalculatedItems. _
Add "17. Woche", "='16. Woche' +'17'", True
ActiveSheet.PivotTables("PivotTable2").PivotFields("Woche").CalculatedItems. _
Add "18. Woche", "='17. Woche' +'18'", True
Das geht dann weiter bis 52 logischerweise.
Kann man das einfacher machen damit das Makro praktisch nur die Ergebnisse addiert die auch wirklich da sind?
Vielen Dank für Eure Hilfe!
Grüße