AW: Positionierung im Tabellenblatt
04.08.2006 13:45:46
JürgenH
Hallo Franz, und danke!
Hat leider wieder nicht geklappt. Ich bekomme "Laufzeitfehler 9: Index außerhalb des gültigen Bereichs" in der SetWksPivot-Zeile.
Hier das komplette Makro (das ich mit dem Rekorder aufgezeichnet habe):
Sub Pivot()
Columns("C:Q").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Users!C:Q").CreatePivotTable TableDestination:="", TableName:= _
"PivotTable2", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Fäll.Datum")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable2").AddDataField ActiveSheet.PivotTables( _
"PivotTable2").PivotFields("Beleg"), "Anzahl von Beleg", xlCount
ActiveSheet.PivotTables("PivotTable2").AddDataField ActiveSheet.PivotTables( _
"PivotTable2").PivotFields("Betrag"), "Summe von Betrag", xlSum
Range("B5").Select
ActiveWorkbook.ShowPivotTableFieldList = False
ActiveSheet.PivotTables("PivotTable2").PivotSelect "", xlDataAndLabel, True
ActiveSheet.PivotTables("PivotTable2").Format xlReport2
Columns("C:C").Select
Selection.NumberFormat = "#,##0.00"
' Ergänzung von Franz:
Dim wksPivot As Worksheet
Set wksPivot = ActiveWorkbook.Sheets("PivotTable2") 'hier kommt der Fehler!
With wksPivot
.PivotTables("Pivot-Tabelle1").PivotSelect "Spaltengesamtergebnis", xlLabelOnly
.Select
If ActiveCell.Row > 34 Then
Application.ActiveWindow.ScrollRow = ActiveCell.Row - 30
End If
End With
End Sub