Im Moment sieht es so aus:
Range("A1:B10001").Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Tabelle2!R1C1:R10001C2", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="Tabelle3!R3C1", TableName:="PivotTable1", _
DefaultVersion:=xlPivotTableVersion14
Sheets("Tabelle3").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Aussteller/Produkt")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("PIs"), "Summe von PIs", xlSum
Range("B4").Select
ActiveSheet.PivotTables("PivotTable1").PivotFields("Aussteller/Produkt"). _
AutoSort xlDescending, "Summe von PIs", ActiveSheet.PivotTables("PivotTable1"). _
PivotColumnAxis.PivotLines(1), 1
Das erste würde ich dann einfach in Range("A1:B" & letzteZeile).Select ändern (natürlich nachdem ich letzteZeile definiert habe), aber wie kann ich das "Tabelle2!R1C1:R809C2" entsprechend anpassen?
Wäre sehr dankbar wenn mir jemand helfen könnte :)
LG