Hi Leute,
ich habe hier ein Problem ich möchte mit einem Macro auf eine Pivot zugreifen.. Soweit so unkompliziert, aber der Bezug soll immer um eine Zeile nach unten rutschen
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = 3 + 1
b = 1 + 1
c = 2 + 1
Cells(Selection.Row, Selection.Column + 1).Select
ActiveCell.FormulaR1C1 = _
"=GETPIVOTDATA(""Spalte2"",Tabelle1!R[a]C,""Spalte1"",283)"
Cells(Selection.Row, Selection.Column + 1).Select
ActiveCell.FormulaR1C1 = _
"=GETPIVOTDATA(""Spalte3"",Tabelle1!R[a]C[b],""Spalte1"",283)"
Cells(Selection.Row, Selection.Column + 1).Select
ActiveCell.FormulaR1C1 = _
"=GETPIVOTDATA(""Spalte4"",Aufbereitung!R[a]C[c],""Spalte1"",284)"
kann mir da Jemand helfen? ?(
ich habe hier ein Problem ich möchte mit einem Macro auf eine Pivot zugreifen.. Soweit so unkompliziert, aber der Bezug soll immer um eine Zeile nach unten rutschen
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = 3 + 1
b = 1 + 1
c = 2 + 1
Cells(Selection.Row, Selection.Column + 1).Select
ActiveCell.FormulaR1C1 = _
"=GETPIVOTDATA(""Spalte2"",Tabelle1!R[a]C,""Spalte1"",283)"
Cells(Selection.Row, Selection.Column + 1).Select
ActiveCell.FormulaR1C1 = _
"=GETPIVOTDATA(""Spalte3"",Tabelle1!R[a]C[b],""Spalte1"",283)"
Cells(Selection.Row, Selection.Column + 1).Select
ActiveCell.FormulaR1C1 = _
"=GETPIVOTDATA(""Spalte4"",Aufbereitung!R[a]C[c],""Spalte1"",284)"
kann mir da Jemand helfen? ?(