Clever-Excel-Forum

Hallo zusammen,

wenn ich in einem Diagramm, eine oder zwei waagrechte Linien als Toleranzgrenzen benötige füge ich entsprechende Spalten mit festen Werten ein.
Das funktioniert auch prima, allerdings habe ich aktuell eine Pivot Tabelle die theoretisch "unendlich" Zeilen hinzufügt.

Wie kann ich es umsetzen, dass die zwei Spalten mit den festen Werten, erst nach unten erweitert werden nachdem eine weitere Zeile ergänzt wurde?

Hi,

das wird wohl nur mit VBA gehen.

Dazu machst du aus der Tabelle mit deinen festen Werten für die waagrechte Linie eine Strg-T-Tabelle. Die Werte selbst trägst du dort nicht direkt als Zahl, sondern als Formel ein z.B. =1,1 oder =$X$1

Dann kommt in das Code-Modul des entsprechenden Tabellenblatts diese Routine:

Code:
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

With Me.ListObjects(1)

    .Resize .Range.Resize(Target.DataBodyRange.Rows.Count + 1)

End With

End Sub

Jett wird bei jedem Update der Pivot deine Tabelle in der Höhe angepasst.

thepinky

HKindler