PDA

Vollständige Version anzeigen : letzte Reihe, letzte Zeile


Rudi G
24.03.2009, 10:49
Hallo zusamen,

bislang habe ich im Makro den Datenbereich fix eingetragen.
Nun wird sich der Datenbreich immer wieder ändern.
Wie kann ich meiner Pivottabelle sagen :
suche letzte Zeile, letzte Reihe?

Bislang:
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Altbestand!R1C1:R5860C15").CreatePivotTable TableDestination:= _
"[354Maxliste_VertragSummen.xls]Altbestand!R5865C7", TableName:="PivotTable1"

Weiß jemand wie das gehen könnte?

IngGi
24.03.2009, 13:19
Hallo Rudi,

falls du mit Sicherheit sagen kannst, dass es innerhalb des Datenbereiches keine komplett leere Zeile und keine komplett leere Spalte gibt und du ebenfalls mit Sicherheit sagen kannst, dass der Datenbereich rechts und unten jeweils von einer leeren Spalte/Zeile begrenzt ist, sollte folgendes funktionieren:

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Altbestand!" & Sheets("Altbestand").Range("A1").CurrentRegion.Address(ReferenceStyle:=xlR1C1)).CreatePivotTable TableDestination:= _
"[354Maxliste_VertragSummen.xls]Altbestand!R5865C7", TableName:="PivotTable1"

Gruß Ingolf

Rudi G
24.03.2009, 13:48
Hi Ingolf,

vielen Dank es hat super geklappt.


:) :) :)