Makro für Wertfeldeinstellungen


#1
Hallo,

ich möchte innerhalb einer Pivot-Tabelle mehrere Wertfeldeinstellungen von "Anzahl" auf "Mittelwert" ändern.
Leider geht dies nur einzeln und nicht für mehrere Felder zusammen!
Im aktuellen Fall müsste ich demnach mehrere hundert Mal das jeweilige Feld anklicken und einzeln ändern :-(
Gibt es hier ein hilfreiches Makro oder kann man ggf. auch die Einstellung der Zusammenfassung vor Pivoterstellung ändern?

Grüße
 
#2
Verstehe ich das Richtig?
Du hast in den Felder die Formel "=SUM(A1:D1)" und willst das ersetzen durch "=AVERAGE(A1:D1)"
Oder ist da eine andere Formel drin?

Wenn du das deutsche Excel hast, lass dir mal die Formel in VBA-Direktfesntger ausgeben, denn damit muss gearbeitet werden
Visual Basic:
'Direktfenster: Ausgeben der aktuellen Formel
?ActiveSheet.Range("D1").FormulaLocal
=SUM(A1:C1)
 
#3
Visual Basic:
Sub Makro1()
' Makro1 Makro
' Tastenkombination: Strg+x
    Range("A10").Select
    With ActiveSheet.PivotTables("PivotTable1").PivotFields( _
        "Anzahl von XXX")
        .Caption = "Mittelwert von XXX"
        .Function = xlAverage
    End With
End Sub

Ich habe den Schritt mal als Makro exemplarisch für das Feld A10 aufgezeichnet. Im vorliegenden Fall wäre die Range aber bis A500. Auch eine relative Aufzeichnung brauchte bisher keinen Erfolg.
 
Zuletzt bearbeitet von einem Moderator:
#4
Oh, arbeite nicht mit select. Das ist unsauber und führt nur zu Problemen

Visual Basic:
Dim rng As Range
Dim cl As Range

Set rng = ActiveSheet.Range("A10:A500")
For Each cl In rng.Cells
    'Mach was mit der Zelle/Range cl
Nect cl
Ich sehe nicht, was dein Select mit dem reslichen COde zu tun hat. Du arbeitest ja in einem benannten Pivot.