Makro: Pivot-Bereich = markierte Zellen
07.12.2006 21:00:36
Ela
Hallo an alle Fachleute,
habe zwei Makros, die ich nacheinander ausführen will. Das dritte Makro, mit entsprechenden Call-Befehlen, startet per Button die beiden anderen Makros.
Die Tabelle, für die ich diese Makros benötige, hat eine variable Zeilenzahl, Spalten sind nur von A bis H belegt.
Das 1. Makro markiert automatisch alle belegten Zellen:
Sub Alle_belegten_zellen_markieren()
Range("a1", Range("h65536").End(xlUp)).Select
End Sub
Das 2. Makro, das ich per Aufzeichnung erstellt habe, startet eine Pivot-Tabelle.Es funktioniert alles einwandfrei, bis auf ein wichtiges Detail:
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
"Tabelle1!R1C1:R17516C8", TableDestination:="", TableName:="PivotTable2"
ActiveSheet.PivotTables("PivotTable2").SmallGrid = False
und so weiter.
Das 2. Makro zum Aufruf der Pivot-Tabelle notiert zum Thema Bereich (Welche Daten möchten Sie analysieren) "Tabelle1!R1C1:R17516C8" und nicht "nimm den Bereich, den das 1. Makro zuvor markiert hat".
Wenn die Tabelle beim nächsten Mal nicht 17516, sondern vielleicht 25.858 Zeilen hat, dann berücksichtigt die automatische Pivot-Tabelle nur 17516 Zeilen (von Spalte A-H) und nicht die vorhandenen 25.858.
Wie muss ich das 2. Makro abändern, damit die Pivot-Tabelle immer den Bereich verwendet, den das 1. Makro vorgibt?
Für eure Hilfe herzlichen Dank im voraus.
Viele Grüße
Ela