Definieren eines Bereiches fuer Pivot Tabelle

Hallo,

mein Name ist Klaus und ich habe ein Problem mit einem VBA script.

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Data!R2C1:R5000C2").CreatePivotTable TableDestination:=""

--> Ist es moeglich den Bereich ("Data!R2C1:R5000C2") bei jeder VBA Ausfuehrung neu zu definieren?!

Bsp:
ich habe 10 Zeilen mit Text, deshalb moechte ich nur diese ersten 10 Zeilen in die Pivot Tbl. uebernehmen.
Das naechste Mal habe ich 500 Zeilen mit Text --> 500 Zeilen sollen in die Pivot Tbl. uebernommen werden!

Waere fuer Vorschlaege mehr als dankbar da ich hier einfach nicht mehr weiter finde....

mit bestem Dank im Voraus
Klaus

Hallo,

schau mal, ob es gelingt, den Datenbereich so zu dynamisieren:

- Dem Datenbereich einen NAMEN (Einfügen, Namen, Definieren) geben (z.B. PivotDaten)
- bei "Bezieht sich auf" =Bereich.verschieben($A$1;;;Anzahl2($A:$A);Anzahl2($1:$1)) eintragen (die Daten hier in A1 beginnend angenommen) und
- den so definierten NAMEN als Analysedaten-Grundlage der Pivottabelle eintragen.

Gruß, urs