VBA Pivot: ошибка «Ссылка недействительна» - стиль табличного назначения настроен на R1C1 - PullRequest
Новая
       58

VBA Pivot: ошибка «Ссылка недействительна» - стиль табличного назначения настроен на R1C1

0 голосов
/ 24 апреля 2020

Я действительно изо всех сил пытаюсь исправить вышеупомянутую ошибку. Я уже настроил стиль определения диапазона на R1C1, как предлагается для других вопросов на форуме.

Вот код: 

            'Erstellung der Pivottabelle in Sheet 1
        'Hinzufügen eines neuen Sheets mit dem Name "FCST"
        Set wsNew = Sheets.Add
        wsNew.Name = "FCST"

        ' Bereits bestehende Pivot-Tabellen werden gelöscht
        With ActiveSheet
            For Each ptTable In .PivotTables
                ptTable.TableRange2.Delete
            Next ptTable
        End With


        'Neue PivotTable erstellen
        'PivotCache setzen
        Sheets("results").Select

        ptLastRow = Cells(Rows.Count, "A").End(xlUp).Row
        ptLastColumn = Cells(1, Columns.Count).End(xlToLeft).Column

        Set ptCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="A1:" & Cells(ptLastRow, ptLastColumn))

        'PivotTable auf neuem Sheet erstellen
        Sheets("FCST").Select
        Set ptTable = ptCache.CreatePivotTable(TableDestination:="FCST!R3C1", TableName:="FCSTPivotTable")

        'Bearbeitung und Formattierung der Pivottabelle

        Set ptCache = Nothing
        Set ptTable = Nothing

Он выводит ошибку в следующей строке 

Set ptTable = ptCache.CreatePivotTable(TableDestination:="FCST!R3C1", TableName:="FCSTPivotTable")

Большое спасибо за вашу поддержку!

...