Pivot - variabler Bereich, Makro anpassen
26.10.2004 13:11:52
Jutta
ich möchte bei meiner Pivottabelle den Datenbereich variabel machen.
Meine Grunddatentabelle heißt " Workbooks("PE_ Massnahmen_2004.xls").Worksheets("2004") ", die Pivottabelle steht in " Workbooks("PIC_PE_ Kurzbericht_2004.xls").Worksheets("2004") " die Pivottabelle heißt "PivotTable1" .
Das Makro das ich von Otto gefunden habe,habe ich jetzt so geändert:
Option Explicit
Sub PivotBereich()
Dim intZeilen As Integer
Dim strSource As String
Dim wksPivotGrund As Worksheet
Dim wksPivotTabellen As Worksheet
Set wksPivotGrund = _
Workbooks("PE_ Massnahmen_2004.xls").Worksheets("2004")
Set wksPivotTabellen = _
Workbooks("PIC_PE_ Kurzbericht_2004.xls").Worksheets("2004")
With wksPivotGrund
intZeilen = .Cells(.Rows.Count, 1).End(xlUp).Row
strSource = .Range(.Cells(1, 1), .Cells(intZeilen, 21)). _
Address(RowAbsolute:=True, ColumnAbsolute:=True, _
ReferenceStyle:=xlR1C1, External:=True)
End With
wksPivotTabellen.PivotTableWizard SourceType:=xlDatabase, _
SourceData:=strSource, _
TableDestination:=wksPivotTabellen.Range("A7"), _
TableName:="PivotTable1"
End
Sub
So, und jetzt hakt es bei mir:
die Grunddatentabelle beginnt in Zelle A9. Wie muss ich das Makro abändern ?
Wo stelle ich dieses Makro hin, damit es immer den gesamten Datenbereich erfasst?
Und was, wenn die Mappen in verschiedenen Pfaden stehen ? Was/wie muss ich dann ändern ?
Gruß
Jutta