Hallo zusammen,
der Code hat einwandfrei funktioniert, jedoch kam nach dem Update von Excel 2010 auf Excel 2016 die Fehlermeldung Lauzeitfehler 9: "Index außerhalb des gültigen Bereichs".
Hier ist der Quellcode, wo der Fehler bei der ersten Spalte "FLOWFACTOR" in der Zeile 11 auftritt. Nach erneutem Starten taucht der Fehler schon gar nicht mehr auf, sondern es bleibt einfach so hängen.
Ich bin es schon schrittweise mit dem Debugger durchgegangen, dann springt der Code von Zeile 11 und einem der vielen Charts hin und her in einer Dauerschleife (Siehe Part2 vom Code).
Ich wäre über jeden Tipp zur Behebung des Problems dankbar.
Part 1:
Part 2:
Viele Grüße,
Mace
der Code hat einwandfrei funktioniert, jedoch kam nach dem Update von Excel 2010 auf Excel 2016 die Fehlermeldung Lauzeitfehler 9: "Index außerhalb des gültigen Bereichs".
Hier ist der Quellcode, wo der Fehler bei der ersten Spalte "FLOWFACTOR" in der Zeile 11 auftritt. Nach erneutem Starten taucht der Fehler schon gar nicht mehr auf, sondern es bleibt einfach so hängen.
Ich bin es schon schrittweise mit dem Debugger durchgegangen, dann springt der Code von Zeile 11 und einem der vielen Charts hin und her in einer Dauerschleife (Siehe Part2 vom Code).
Ich wäre über jeden Tipp zur Behebung des Problems dankbar.
Part 1:
Visual Basic-Quellcode
- Sub sync_pivots_dssp_12(twbn As String, twsn As Integer)
- 'Dim pt As PivotTable
- ''Dim pf As PivotFields
- ''Dim pf2 As PivotField
- ''Dim pf3 As PivotField
- 'Set pt = ActiveSheet.PivotTables(1)
- ''Set pf = pt.PivotFields
- ''Set pf2 = pf.Item("FLOWFACTOR")
- ''Set pf3 = ActiveSheet.PivotTables(1).PivotFields.Item("FLOWFACTOR")
- Workbooks(twbn).Sheets(twsn).PivotTables(1).PivotFields.Item("FLOWFACTOR").CurrentPage = Workbooks(twbn).Sheets(twsn).PivotTables(2).PivotFields.Item("FLOWFACTOR").CurrentPage.Name
- 'MsgBox "done 1"
- Workbooks(twbn).Sheets(twsn).PivotTables(1).PivotFields.Item("LINE").CurrentPage = Workbooks(twbn).Sheets(twsn).PivotTables(2).PivotFields.Item("LINE").CurrentPage.Name
- 'MsgBox "done 2"
- Workbooks(twbn).Sheets(twsn).PivotTables(1).PivotFields.Item("AREA").CurrentPage = Workbooks(twbn).Sheets(twsn).PivotTables(2).PivotFields.Item("AREA").CurrentPage.Name
- 'MsgBox "done 3"
- Workbooks(twbn).Sheets(twsn).PivotTables(1).PivotFields.Item("MATERIAL").CurrentPage = Workbooks(twbn).Sheets(twsn).PivotTables(2).PivotFields.Item("MATERIAL").CurrentPage.Name
- 'MsgBox "done 4"
- Workbooks(twbn).Sheets(twsn).PivotTables(1).PivotFields.Item("HQTCF").CurrentPage = Workbooks(twbn).Sheets(twsn).PivotTables(2).PivotFields.Item("HQTCF").CurrentPage.Name
- 'MsgBox "done 5"
- Workbooks(twbn).Sheets(twsn).PivotTables(1).PivotFields.Item("OWNER").CurrentPage = Workbooks(twbn).Sheets(twsn).PivotTables(2).PivotFields.Item("OWNER").CurrentPage.Name
- 'MsgBox "done 6"
- 'pt.ClearAllFilters
- 'MsgBox ActiveSheet.PivotTables(2).PivotFields.Item("OWNER").CurrentPage.Name
- End Sub
- 'Sub testsub()
- 'End Sub
- 'Call sync_pivots(ActiveWorkbook.Name, 4)
- 'End Sub
Part 2:
Viele Grüße,
Mace