Office: Pivot-Tabelle mit unbestimmten DAtenbereich

Servus liebe Leute.
Ich habe da ein Problem mit einer Pivot-Tabelle.


Ich habe drei Spalten aus denen die Pivot-Tabelle erzeugt wird: Bezeichnung, Größen & Bestand. (Bezeichnung als Zeilen, Größen als Spalten, Bestand als Inhalt).

Das Erzeugen der Pivot-Tabelle findet in einem Makro statt. Das Problem besteht darin, dass die Ausgangsdaten immer mehr werden und ich möchte, dass diese berücksichtigt werden.

Sprich: Die Daten stehen von A1:C100. Daraus wird die Pivot-Tabelle erzeugt. Kein Problem. Doch wenn sich die Daten auf A1:C110 erweitern, werden die neuen 10 nicht berücksichtigt.

Wenn ich beim erzeugen einen größeren Datenmengenbezug (z.B A1:C150) verhunzt das das Ergebnis der Pivot-Tabelle.

Ist es überhaupt möglich, dass das Makro beim Erzeugen der Pivot-Tabelle der Datenbereich bis zum Ende der bestehenden Datentabelle asuwählt oder das auf andere Weise realisiert?
Glaube fast ich wünsche mir da etwas, was garnicht realisierbar ist ^^


Gruß, Freddy

 

Wenn Du es manuell realisieren kannst, ist es auch per Makro realisierbar, nur schneller. ;-)

Wie sieht denn Dein Code dazu bislang aus?

Aber mal als erster Ansatz, was Du erweitern könntest:

Code:

dim y as long: dim r as string
'von C65536 nach oben gehen und die unterste belegte Zelle finden
y = ActiveSheet.Cells(65536, 3).End(xlUp).Row
'bereich A1:Cxxx ist der werte-bereich
r = "A1:C" & y

Und das "r" kannst Du dann dort benutzen, wo jetzt die Konstante "A1:C100" oder was auch immer steht.

Gruß, Michael

 

Hallo!

Definiere einen dynamischen Bereichsnamen:
Menü Einfügen > Name > Definieren
Name: MeineListe
Bezieht sich auf: =BEREICH.VERSCHIEBEN($A$1:$C$1;;;ANZAHL2($A:$A))

Dieser Bereich passt sich immer auf die Länge in Spalte A an und du kannst ihn als Quelle für deine PT nutzen.

 

@ miriki: irgendwie habe ich deinen ansatz nicht zum laufen gebracht. habe deinen code mit ins makro übernommen und alles angepasst, doch beim durchlauf des makros hatte ich immer einen fehler "1004" :-( trotzdem danke


@ schatzi: habs zum laufen bekommen. entspricht genau meinen wünschen. dankeschön