Hallo zusammen,
ich benötige einen Tip, wie ein Bereich, dem ich einen Namen zuweisen will, variabel festgelegt werden kann.
Ich will eine Pivot-Tabelle auf "Sheet_2" erzeugen, deren Rohdaten ich über einem Bereich "PivotBereich" auf "Sheet_1" definiere, was klappt:
With ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= "Sheet_1!PivotBereich")
.CreatePivotTable TableDestination:="'Sheet_2'!R3C1", TableName:="PivotTable2", DefaultVersion:=xlPivotTableVersion10
End With
Probleme bereitet mir die Festlegung des Bereichs, denn die Größe des Bereichs soll variabel sein.
Es stehen die Werte "MaxZeile" und "MaxSpalte" zur Verfügung, der Bereich, dem ich den Namen "PivotBasis" geben möchte, ist also R1C1:R[MaxZeile]C[MaxSpalte].
Einen festen Bereich kann ich z.B. wie folgt mit Namen versehen:
ActiveWorkbook.Names.Add Name:="PivotBereich", RefersToR1C1:="='2_Gruppenmitgliedschaften_kons'!R1C1:R33C33"
ActiveWorkbook.Names("PivotBereich").Comment = ""
Wie schaffe ich es, dass da, wo die absolute Angabe "R1C1:R33C33" steht, eine variable Angabe mit MaxZeile und MaxSpalte steht, so dass die Grösse des Bereichs von MaxZeile und MaxSpalte gesteuert wird?
Danke vorab für jeden Tip,
Volker