Hallo,

ich habe eine Frage. Ich bin VBA Anfänger. Ist es möglich ein Makro zu schreiben, dass automatisch alle Werte in der PIV als % der Gesamtsumme angezeigt werden. Die größe der PIV passt sich dynamisch an.

Die PIV schaut so aus

Nr. Bezeichnung Spalte1 Spalte2 Spalte3 Spalte 4....

01 test1                20           30          10          40

02 test2                30           40           60         20

03 test3                50            30          30         40

usw.

Standardgemäß werden die Werte als Summe dargestellt.

Ich möchte nun ein Makro, dass die Spalte 1 bis n nacheinander durchläuft und die Werte in den Spalten  als % der Gesamtsumme darstellt.

Wenn ich es mit dem Makro-Rekorder aufzeichne, schaut es wie folgt aus. Das Problem ist nur, dass sich die Tabelle vergrößern kann. D.h. ich möchte automatisch bis zur letzten befüllten Spalte der PIV diese Aufgabe ausführen.

Range("C3").Select
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Summe von Spalte1")
        .Calculation = xlPercentOfTotal
        .NumberFormat = "0,00%"

Range("D3").Select 

With ActiveSheet.PivotTables("PivotTable1").PivotFields("Summe von Spalte2")
        .Calculation = xlPercentOfTotal
        .NumberFormat = "0,00%"

usw.

Vielen Dank für eure Hilfe.

Lena