Liebe/-r Experte/-in,
ich komme mit meiner Pivottabelle nicht weiter. Hier der Code (aufgezeichnet mit Makrorekorder):
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
„Vorlage!R1C1:R915C8“).CreatePivotTable TableDestination:="", TableName:= _
„PivotTable2“, DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
(Der Rest des Codes ist hier für meine Frage unerheblich.)
–> Wie schaffe ich es nun, den absoluten Verweises der SourceData auf die Zelle 915 (R915C8) durch eine Variable zu ersetzen, die die letzte Zelle des zugrundeliegenden Datenbereichs enthält, damit die Pivottabelle immer den vollständigen Datenbereich als Grundlage für die Berechnung zieht?
Die letzte Zelle berechne ich so:
Dim letzteZeile As Integer
letzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
–> Meine Idee war ungefähr so:
SourceData:= _
„Vorlage!R1C1:R(“ & letzteZeile & „)C8“).CreatePivotTable
Aber die Schreibweise bekomme ich einfach nicht hin. Bin echt am Verzweifeln. Was mache ich falsch und wie lautet die korrekte Schreibweise für das Einbetten der Variablen in den SourceData-Bereich?
PS: Über einen definierten Bereichsnamen habe ich das ganze auch schon probiert, aber da bekomme ich Probleme mit der Z1S1-Bezugsart in meinem weiteren Script. Benötige also dringenst die korrekte Schreibweise für das Einbetten der Variablen.
Bitte, bitte helfe mir. (Mein Chef sitzt mir sowas von im Nacken :roll: )
Tausend Grüße
Oli