Makro mit Pivot Chart
30.12.2004 19:12:17
Matthias
als erstes wünsche ich allen einen guten Rutsch ins neue Jahr...und vielen Dank an alle die mir versuchen zu helfen.
Ich habe folgende Probleme bei der automatischen Erstellung von Pivot Charts...
Ich habe eine Ausgangstabelle Pivot_Daten in der die Daten wie folgt aufgelistet werden:
https://www.herber.de/bbs/user/15450.xls
Da die Daten variabel sind, kann es sein dass die Tabelle auch so aussieht (Datum entscheidend):
Die Datei https://www.herber.de/bbs/user/15451.xls wurde aus Datenschutzgründen gelöscht
Eine weitere Frage wäre, ob es eine Möglichkeit gibt SourceData=Pivot_Daten!A1:AN65536 so zu verändern, das nicht alles verwendet wird (also A1:AN65536), sondern nur der Bereich in dem auch Werte vorhanden sind?...auch dies muss natürlich variabel sein!
Dies ist nur ein Teil des Makros, aber ich denke es müsste zum nachvollziehen reichen...
...
Worksheets("Pivot_Daten").Activate
Cells.Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Pivot_Daten!A1:AN65536").CreatePivotTable TableDestination:="", TableName:= _
"PivotTable1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="Daten", _
ColumnFields:="Wochen", PageFields:=Array("Zimmer/Bel.:", "Hotel:", _
"Zielgebiet:")
With ActiveSheet.PivotTables("PivotTable1").PivotFields("22.03.2005")
.Orientation = xlDataField
.Caption = "Mittelwert von 22.03.2005"
.Position = 1
.Function = xlAverage
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("29.03.2005")
.Orientation = xlDataField
.Caption = "Mittelwert von 29.03.2005"
.Position = 2
.Function = xlAverage
End With
Bin für jede Hilfe dankbar...
Gruß Matthias