in der Anweisung wird eine Pivot-Tabelle erstellt, die Datenquelle ist allerdings dynamisch, heißt die Anzahl der Zeilen ändert sich. Hier ist ja ein fixer Bereich ("ReportData 1!R1C1:R72C8") angegeben. Kann, bzw. wie baue ist die Dynamik ein, so das R72 flexibel ist, bzw. immer die letzte Zeile des Datenbereichs gefunden wird?
Sheets("ReportData 1").Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"ReportData 1!R1C1:R72C8", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="Tabelle1!R3C1", TableName:="PivotTable1", _
DefaultVersion:=xlPivotTableVersion14
Sheets("Tabelle1").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("strPickUpTourName")
.Orientation = xlRowField
.Position = 1
End With
Über "Namen definieren" hab' ich es auch schon probiert, leider ohne Erfolg.