' 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
|