Вставка видимой области listObject не удалась - PullRequest
Новая
       49

Вставка видимой области listObject не удалась

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

Я хочу отфильтровать список объектов (работает нормально). Теперь я хочу скопировать отфильтрованные строки на другой лист: вставка не удалась с ошибкой: «Сбой метода PASTE на объектном листе». Я попробовал два разных подхода, оба потерпели неудачу (см .: << ==). Строки с «активировать» или «Выбрать» предназначены только для тестирования. </p> 

Dim rngTable As range
wrkSheet.Activate

With tbl.DataBodyRange
For Each item In arrTrainer

    With ActiveSheet.ListObjects("tblAufstellung")
        ' clear filter
        .range.AutoFilter Field:=5

        ' set filter
        .range.AutoFilter Field:=5, Criteria1:=item

        'copy visible area to a range
        Set rngTable = tbl.DataBodyRange.SpecialCells(xlCellTypeVisible)

        ' copy visible data to sheet Temp
         rngTable.Activate
         rngTable.Select
         rngTable.Copy

        'prepare paste area
        Dim wrkTemp As Worksheet
        Set wrkTemp = ActiveWorkbook.Worksheets("temp")
        wrkTemp.Activate
        wrkTemp.Cells.Clear
        wrkTemp.range("a1").Activate

        Dim myA1 As range
        Set myA1 = wrkTemp.range("a1")

        ' try to paste Version 1   << ====
        wrkTemp.Paste

        ' try to paste Version 2   << ====
        myA1.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

          Debug.Print "Filtered table: " & rngTable.Address
          wrkSheet.Activate
    End With

Спасибо! Решение для wrkTemp.Cells.Clear до копирования является решением!

...