Hallo Communitie,
ich stehe mal wieder vor einen riesen Problem
Ich habe ein Array mit unterschiedlichen Projektnamen gefüllt (Variable = wbs_index bzw wbs)
Es wird eine Pivot-Tabelle erzeugt (klappt wunderbar). Diese soll über den Bereichsfilter "wbs_index" die jeweiligen individuellen Werte für das über den index eingetragene Projekt darstellen.
Das klappt beim ersten mal wunderbar. Das war es aber auch schon. VBA zeigt zwar die wbs_index Variablen korrekt an, jedoch hat dies keinen Einfluss auf die Pivot Tabelle. Weder die Daten noch der Projektname ändern sich. Ich bin am verzweifeln. Hier ein Auzug meines Codes. Falls ihr sonst noch Verbesserungsvorschläge habt - jede Hilfe ist willkommen.
****
Ergänzung
* Ich habe jetzt einmal 'On Error Resume Next' rausgenommen. Jetzt bricht das Makro bei der Stelle:
* ActiveSheet.PivotTables("PV_" & (i)).PivotFields("Project Name").ClearAllFilters
* ActiveSheet.PivotTables("PV_" & (i)).PivotFields("Project Name").CurrentPage = WBS_Index
* ab. Es kommt der FehlerNr 1004 Beschreibung: Die PivotTables-Egienschaft des Worksheet-Objektes kann nicht zugeordnet werden.
* Auch hier ist es so, dass der erste Durchlauf funktioniert, beim zweiten Durchlauf bricht er mit obiger Fehlermeldung ab.
* Ich bin verzweifelt.
Vielen Dank
Jörg
~blaze~: Rot ist den Moderatoren vorbehalten --> Änderung zu orange, hab' bei der Gelegenheit auch gleich noch den VB-Tag eingefügt
ich stehe mal wieder vor einen riesen Problem
Ich habe ein Array mit unterschiedlichen Projektnamen gefüllt (Variable = wbs_index bzw wbs)
Es wird eine Pivot-Tabelle erzeugt (klappt wunderbar). Diese soll über den Bereichsfilter "wbs_index" die jeweiligen individuellen Werte für das über den index eingetragene Projekt darstellen.
Das klappt beim ersten mal wunderbar. Das war es aber auch schon. VBA zeigt zwar die wbs_index Variablen korrekt an, jedoch hat dies keinen Einfluss auf die Pivot Tabelle. Weder die Daten noch der Projektname ändern sich. Ich bin am verzweifeln. Hier ein Auzug meines Codes. Falls ihr sonst noch Verbesserungsvorschläge habt - jede Hilfe ist willkommen.
Visual Basic-Quellcode
- For Each WBS_Index In ActiveSheet.PivotTables("PV_" & (i)).PivotFields("Project Name").WBS_Index
- 'For Each WBS_Index In WBS
- Workbooks(Dat_Name).Activate
- ActiveSheet.PivotTables("PV_" & (i)).PivotFields("Project Name").ClearAllFilters
- ActiveSheet.PivotTables("PV_" & (i)).PivotFields("Project Name").CurrentPage = WBS_Index
- Letztezeile = Workbooks(Dat_Name).Worksheets(1).Range("A1048576").End(xlUp).Row
- Chart_Name = "170328 Vorlage.xlsx"
- Range("A5:M" & Letztezeile).Copy
- Set such = Range("A5:M" & Letztezeile)
- Min_Wert = WorksheetFunction.Min(such)
- Max_Wert = WorksheetFunction.Max(such)
- Min_Wert = Application.WorksheetFunction.Round(Min_Wert / 100000, 0) * 100000
- Max_Wert = Application.WorksheetFunction.Round(Max_Wert / 100000, 0) * 100000
- Letztezeile = Workbooks(Chart_Name).Sheets(1).Range("A1048576").End(xlUp).Row
- Workbooks(Chart_Name).Sheets(1).Range("A2").Select
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- Workbooks(Chart_Name).Sheets(2).name = Left(WBS_Index, 20) & "... Chart"
- Workbooks(Chart_Name).Sheets(1).name = Left(WBS_Index, 26) & "..."
- Next WBS_Index
****
Ergänzung
* Ich habe jetzt einmal 'On Error Resume Next' rausgenommen. Jetzt bricht das Makro bei der Stelle:
* ActiveSheet.PivotTables("PV_" & (i)).PivotFields("Project Name").ClearAllFilters
* ActiveSheet.PivotTables("PV_" & (i)).PivotFields("Project Name").CurrentPage = WBS_Index
* ab. Es kommt der FehlerNr 1004 Beschreibung: Die PivotTables-Egienschaft des Worksheet-Objektes kann nicht zugeordnet werden.
* Auch hier ist es so, dass der erste Durchlauf funktioniert, beim zweiten Durchlauf bricht er mit obiger Fehlermeldung ab.
* Ich bin verzweifelt.
Vielen Dank
Jörg
~blaze~: Rot ist den Moderatoren vorbehalten --> Änderung zu orange, hab' bei der Gelegenheit auch gleich noch den VB-Tag eingefügt
Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „~blaze~“ ()