Macro: Tabel aanpassen aan te plaatsen inhoud

[kooijman599]

Hallo!

Ik heb een vraag over het onderstaande stukje uit mijn code. Te zien is dat verzamelde gegevens worden 'geplakt' naar een ListObject in Blad2. Nu is het zo dat de gegevens geplakt worden, zonder dat de Tabel wordt uitgebreid met extra regels. Ook als er gegevens worden gewist, wordt de tabel niet ingekort naar het aantal k in .keys (.Items.count). Hoe is dit aan te passen in de code, zodat de tabel wordt aangepast aan de te plaatsen data?

c = 1
    For Each k In .keys
        c = c + 1
        Sheets("Blad2").ListObjects(1).Range.Columns(1).Cells(c) = k
        Sheets("Blad2").ListObjects(1).Range.Columns(2).Cells(c).Resize(, 24).Value = .Item(k)
    Next k

Alle hulp is welkom!

 

[Wigi]

Ik kan dit niet reproduceren. Als ik middels VBA een extra rij (de eerste kolom daarvan) vul met een nieuwe waarde, dan update Excel automatisch de tabel.

Kan je een simpel voorbeeldbestandje bijsluiten aub?