|
Hallo zusammen, würde euch gerne nochmal um eure Hilfe bitten.
Ich versuche gerade ein Makro zu erstellen, das eine Pivot-Tabelle aus einer anderen Tabelle erstellt, dessen Zeilenanzahl immer unterschiedlich ist.
Das hier wäre mein Ansatz, jedoch macht das Makro einfach gar nichts, könntet ihr mir sagen, wo mein Fehler liegt?
'Pivot-Tabelle erstellen
RefersToR1C1 = "Tabelle2!R1C1:R" & anzZeilen4 & "C2"
anzZeilen4 = Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
Sheets.Add.Name = "Pivot-Tabelle"
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
RefersToR1C1, Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:="Pivot-Tabelle!R1C1", TableName:="PivotTable1", _
DefaultVersion:=xlPivotTableVersion15
Sheets("Pivot-Tabelle").Select
Cells(1, 1).Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("HB-Konto ")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("Negativ"), "Summe von Negativ", xlSum
Ich vermute, dass mein Fehler in der dynamischen Range liegen könnte, die ich versucht habe mit RefersToR1C1 einzuarbeiten.
Ich hoffe ihr könnt mir helfen, vielen Dank im Voraus :-)
|