pivotTable.RefreshTable

Option Explicit

Sub Tabelle_aktualisieren()

    '--------< Tabelle_aktualisieren() >----

    '< get_Worksheet >

    Dim ws As Worksheet

    Set ws = ActiveSheet

    '</ get_Worksheet >

    '< get_Pivottable >

    Dim pvt As PivotTable

    Set pvt = ws.PivotTables(1)

    '</ get_Pivottable >

    'refresh

    pvt.RefreshTable

    '--------</ Tabelle_aktualisieren() >----

End Sub