Pivottabelle mit automatisch ausgelesenen Bereich
19.05.2008 09:11:13
Elmar
ich habe einen Datenbereich, welcher stets aus gleich vielen Spalten besteht (allerdings unterschiedlich viele Zeilen besitzt). Diese möchte ich als Pivottabelle darstellen. Die Spaltenbezeichner bleiben stets die gleichen. Hierfür habe ich mir ein Makro aufgezeichnet um mir die Arbeit zu erleichtern. Der Code sieht wie folgt aus.
Sub MF_Pivot2()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"TD!R1C1:R907C19").CreatePivotTable TableDestination:="", TableName:= _
"PivotTable1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("TP_ID"), "Anzahl von TP_ID", xlCount
With ActiveSheet.PivotTables("PivotTable1").PivotFields("MF_Ziel")
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("MF_Start")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("SperrigTyp")
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("SGS_rel")
.Orientation = xlPageField
.Position = 2
End With
ActiveSheet.PivotTables("PivotTable1").PivotFields("SGS_rel").CurrentPage = "0"
ActiveSheet.PivotTables("PivotTable1").PivotFields("SperrigTyp").CurrentPage = _
"U"
ActiveWorkbook.ShowPivotTableFieldList = False
Application.CommandBars("PivotTable").Visible = False
End Sub
Das Problem liegt nun darin, dass ich den Bereich nicht anpassen kann bzw. ich mit der "UsedRange.Rows.Count" Funktion nicht richtig umgehen kann.
Zudem sollte das neue Tabellenblatt den Namen MF-Matrix besitzen.
Es wäre klasse, wenn mir jemand helfen könnte.
Anzeige