Pivottabel og tabel med avanceret filter

Det kan du ikke. Du er nødt til at lade dit avancerede filter kopier data til et andet sted i arket eller til et andet ark og så lave din pivottabel på disse (nye) data

Tak for dit svar, det udelukker jo den mulighed, men spørgsmålet er så bare at få det andet til at virke - har forsøgt mig som nedenfor:

Sub SletTomme()

'Denne del kan slette indholdet af et tidligere avanceret filter på data i tabel2 (arket "Data"), som manuelt er kopieret til Tabel1 (arket Tabel1)
'Makroen virker efter hensigten
   
    Sheets("Tabel1").Select
    Range("Tabel1").Select
    Selection.ClearContents
    Range("C3").Select

'Slet tomme rækker i tabel1, så der kun er en tom tilbage - obs ser på første celle

Dim sidsteRække, række
    sidsteRække = ActiveCell.SpecialCells(xlLastCell).Row
   
    With ActiveSheet
    For række = sidsteRække To 1 Step -1
        If .Cells(række, 1) = "" Then
            .Rows(række).EntireRow.Delete
        End If
    Next række
    End With

End Sub


   
Sub KopierTabel2tilTabel1()
'Kopierer Data fra søgeresultat fra avanceret filter i Tabel 2 til Tabel1 og skulle gerne opdatere Pivottabellen i arket "Pivot2Tabel1"

'Problemet er at der ikke i alle tilfælde indsættes det korrekte antal tabelrækker i Tabel1, hvilket "ødelægger tabellen"

    Range("Tabel1[W-nr]").Select
    Sheets("Data").Select
    Range("Tabel2").Select
    Selection.Copy
    Sheets("Tabel1").Select
    Range("Tabel1[W-nr]").Select
    ActiveSheet.Paste
    Range("C3").Select
    Sheets("Pivot2Tabel1").Select
    ActiveSheet.PivotTables("Pivottabel2").PivotSelect "", xlDataAndLabel, True
    Range("B26").Select
    Application.CutCopyMode = False
    ActiveWorkbook.RefreshAll
    Sheets("Tabel1").Select
    Range("C3").Select
    Sheets("Data").Select
    Range("C3").Select
   
    Sheets("Tabel1").Select
    Range("C3").Select

End Sub

Lukker