Dynamisch tabellen samenvoegen in 1 lange tabel

[AlexCEL]

Allen, ik ben op zoek naar wat suggesties om (dynamisch) tabellen samen te voegen.

Ik heb diverse sheets met daarop tabellen met meetgegevens en daaruit berekende data. Dit wil ik als 1 lange lijst hebben, zodanig dat als ik de basistabel aanvul of wijzig dit automatisch meegaat in de lange tabel. De samengestelde tabel dient als input voor een draaitabel (zie versimpelde voorbeeldje).

Iemand een goed idee hoe dit te doen?

 

[VenA]

Voor dynamische tabellen gebruik je toch dynamische tabellen (in VBA Listobjects)? Als je diverse sheets met tabellen hebt waarom staan deze dan niet in de diverse sheets. Maar even een voorbeeldje gemaakt met hoe ik de vraag interpreteer en hoe je het kan oplossen met een macro.

Private Sub Worksheet_Activate()
  With ListObjects(1)
    If .ListRows.Count > 0 Then .DataBodyRange.Delete
    For Each sh In Sheets()
      If sh.Name <> "Rapportage" Then
        sh.ListObjects(1).DataBodyRange.Copy .Range.Cells(IIf(.ListRows.Count = 0, 2, .ListRows.Count + 2), 1)
      End If
    Next sh
  End With
  ActiveSheet.PivotTables(1).PivotCache.Refresh
End Sub

 

[AlexCEL]

Dank VenA, ik ga er morgen even mee stoeien.

 

[AlexCEL]

Ben er nog niet helemaal uit, loop helaas tegen mijn beperkte kennis van VBA aan. Andere oplossingen die ik online tegenkom gaan ook allemaal uit van VBA oplossingen... ik speur nog even verder (via een hulpsheet of zo).

Weet je toevallig of een draaitabel meer inputbronnen kan hebben?

 

[jkpieterse]

Jazeker! Middels "Get & Transform" (PowerQuery) bijvoorbeeld.