Het maken van draaitabellen in Excel met VBA

Een draaitabel, of ‘PivotTable’ in het Engels, is een krachtig hulpmiddel in Excel waarmee je gegevens kunt analyseren en samenvatten. Hoewel je eenvoudig draaitabellen kunt maken via de Excel-interface, kun je ook VBA (Visual Basic for Applications) gebruiken om deze te genereren. Dit artikel leidt je door de stappen om een draaitabel te maken met VBA.

Basis van VBA in Excel

Voordat je een draaitabel maakt, is het essentieel om een basiskennis van VBA in Excel te hebben. Om de VBA-editor te openen, druk je op ALT + F11 in Excel. Hier kun je je VBA-code schrijven en uitvoeren.

Het opzetten van je data

Zorg ervoor dat je gegevens goed zijn gestructureerd: elke kolom moet een unieke kop hebben, er mogen geen lege rijen of kolommen zijn, en de gegevens moeten zich in een tabel bevinden.

Het schrijven van de VBA-code

Hier is een basisvoorbeeld van hoe je een draaitabel kunt maken met VBA:

Sub MaakDraaitabel()

    Dim ws As Worksheet
    Dim ptRange As Range
    Dim ptCache As PivotCache
    Dim ptTable As PivotTable

    ' Definieer het werkblad en het gegevensbereik
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set ptRange = ws.Range("A1:D100") 'Verander dit naar je gegevensbereik

    ' Definieer de Pivot Cache
    Set ptCache = ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=ptRange)

    ' Maak een nieuwe draaitabel
    Set ptTable = ptCache.CreatePivotTable(TableDestination:=ws.Range("F5"), TableName:="MijnDraaitabel")

    ' Stel de velden en waarden van de draaitabel in
    With ptTable.PivotFields("Kolomnaam1")
        .Orientation = xlRowField
        .Position = 1
    End With

    With ptTable.PivotFields("Kolomnaam2")
        .Orientation = xlColumnField
        .Position = 1
    End With

    With ptTable.PivotFields("Kolomnaam3")
        .Orientation = xlDataField
        .Function = xlSum
        .NumberFormat = "#,##0.00"
    End With

End Sub

In bovenstaand voorbeeld vervang je Kolomnaam1, Kolomnaam2 en Kolomnaam3 door de daadwerkelijke namen van je kolommen.

Uitvoeren van je VBA-code

Nadat je de code hebt geschreven en aangepast aan je behoeften, kun je deze uitvoeren door op F5 te drukken terwijl je in de VBA-editor bent.

Aanvullende tips

• Error Handling: Het is altijd een goed idee om foutafhandeling toe te voegen aan je VBA-code om onverwachte problemen op te vangen.

• Automatisering: Je kunt deze code combineren met andere VBA-scripts om een reeks taken te automatiseren, zoals het dagelijks verversen van je draaitabel.

• Aanpassingen: VBA biedt uitgebreide mogelijkheden om draaitabellen aan te passen, zoals het toevoegen van slicers, groeperen van items, of het aanpassen van de opmaak.