VBA Pivot Lastrow für Tabledestination
27.11.2013 15:24:14
Malte
ich habe ein Tabellenblatt auf dem vier Pivottabellen dargestellt werden sollen. Zwei nebeneinander und zwei darunter.
Zuerst werden die oberen beiden Pivottabellen eingefügt per Makro. Da die erstellten Pivots in der länge variieren können, möchte ich für die zwei darunter keinen festen Bezug nutzen, sondern mit Lastrow arbeiten.
Dies ist mein Code:
LastRow = Sheets("NEW MT FC Acc LED").Range("A" & Rows.Count).End(xlUp).Row
Debug.Print LastRow
Set pttable = ptCache.CreatePivotTable _
(TableDestination:=ActiveSheet.Range("A1" & LastRow + 1), _
TableName:="Pivottable3")
Im direktfenster wird 28 für Lastrow ausgegeben, die Pivot wird allerdings in Zeile 132 erstellt... Was habe ich falsch gemacht?
Vielen Dank,
Malte