' Hallo, ich bin zu blöd diesen Code anzupassen :).

' Meine Piviot-Quelle beginnt erst ab Range("A6") und die letzte Spalte ist die Spalte AG

' Kann mir jemand bei der Anpassung helfen? 


Mit freundlichen Grüßen Michael


Private Sub Worksheet_Deactivate()

Call dynPivotbereich
 
End Sub

Sub dynPivotbereich()
'Name: Pivotgrundlage
Dim letzteZeile As Long

letzteZeile = Sheets("Grunddaten").Cells(Rows.Count, 1).End(xlUp).Row

ActiveWorkbook.Names.Add Name:="Pivotgrundlage", RefersToR1C1:="=Grunddaten!R6C19:R" & letzteZeile & "C4"

Worksheets("Pivot").Select

ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh

End Sub