VB Kopieren

[moensk]

in bijlage een klein voorbeeld met script dat niet werkt
1. hij selecteert de kop niet mee van de tabel, hoe komt dit ?
2. ik krijg hem niet gekopieerd naar blad 2

graag jullie advies

Sub Kopieren()

    Application.Goto Sheets("Blad1").Range("Maxeda").Copy
    Sheets("Blad2").Select
    Range("A2").Select
    ActiveSheet.Paste
    Range("E16").Select
End Sub

 

[JeanPaul28]

test deze eens

 

[AD1957]

of

Sheets("Blad1").ListObjects("Maxeda").Range.Copy Sheets("Blad2").Range("A2")

 

[moensk]

Thanks
simpel en goed

 

[moensk]

allen
dit script werkt niet indien het een draaitabel is ipv een tabel
ik krijg dan steeds "fout 9 tijdens uitvoering"
enig idee hoe dit op te lossen

 

[AD1957]

zoek maar eens op: vba copy pivot table data to worksheet