Mit Makro auf Pivot mit variablem Bezug zugreifen

  • Excel

    Mit Makro auf Pivot mit variablem Bezug zugreifen

    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? ?(

Facebook
Telefonspende