Sub Letzte_Pivotzeile_ermitteln_und_neu_setzen()
Bereich = Worksheets("Pivot1").PivotTables(1).SourceData
p = InStr(1, Bereich, "!")
If p > 0 Then ws = Left(Bereich, p - 1) Else ws = "Pivot1"
s = Val(Mid(Bereich, InStr(p + 1, Bereich, "S") + 1, InStr(p + 1, Bereich, ":") - InStr(p + 1, Bereich, "S") - 1))
lastrow = Worksheets(ws).Cells(Rows.Count, s).End(xlUp).Row
BereichNeu = Left(Bereich, InStr(p + 1, Bereich, ":") + 1) & lastrow & Right(Bereich, Len(Bereich) - InStrRev(Bereich, "S") + 1)
Worksheets("Pivot1").PivotTables(1).SourceData = BereichNeu
Worksheets("Pivot1").PivotTables(1).RefreshTable
End Sub