Datenquelle Pivot variabel gestalten
21.12.2004 10:15:17
R.Schmitt
mit folgendem Codeschnipsel
möchte ich versuchen, die Datenquelle
einer Pivottabelle variabel zu gestalten.
Die Daten stehen in den Tabellenblättern 1-12 (Monate)
Je nach Zuweisung soll dann das entsprechnde Blatt
als Datenquelle herhalten.
Nur klappt´s irgendwie nicht.
Blatt 4 gibt es.
Denoch die Fehlermeldung "Blatt kann nicht geöffnet werden"
Bin wahrscheinlich mal wieder nur zu verbrettert, um den
Wald vor lauter Pilzen zu sehen.
Sub Bezug2()
Dim Blatt As String
Blatt = 4
Range("C18").Select
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
"'\Dokumente und Einstellungen\Desktop\INFO\[Daten.xls]Blatt'!C1:C17"
ActiveSheet.PivotTables("PivotTable2").SmallGrid = False
ActiveSheet.PivotTables("PivotTable2").AddFields RowFields:="Kunden-Nr (KD)2" _
, ColumnFields:="Daten", PageFields:=Array("Heft (HFT)", "Objekt")
End Sub
Danke Vielmals
R.Schmitt