Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Pivot Feldname Summe von ersetzen

Pivot Feldname Summe von ersetzen
ersetzen
Hallo Excel-Profis,
ich habe diverse Pivottabellen bei denen dann in der Überschrift immer "Summe von"... steht wenn man die Tabelle erzeugt.
Ich ändere dann immer manuell das "Summe von" in "s" damit die Überschriften schmaler werden.
Kann man das per Makro machen? (Sind oft über 50 Spalten).
Das Makro müßte dann jedes Pivotfield umbenennen und "Summe von " durch "s" ersetzen.
Wäre toll wenn das gehen würde.
Vielen Dank und viele Grüße Lutz
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Pivot Feldname Summe von ersetzen
27.04.2011 16:15:50
ersetzen
Hallo,
Sub PI_umbenennen()
'"Summe von", "Anzahl von" etc. aus Datenfeldbezeichnungen löschen
Dim pi As PivotItem, iStart As Integer, pt As PivotTable
Application.ScreenUpdating = False
For Each pt In ActiveSheet.PivotTables
For Each pi In pt.DataPivotField.PivotItems
iStart = InStr(pi.Name, "von")
If iStart > 0 Then
pi.Caption = Replace(pi.Name, Left(pi.Name, iStart + 2), LCase(Left(pi.Name, 1)), , 1)
End If
Next
Next
Application.ScreenUpdating = True
End Sub

Gruß
Rudi
Anzeige
AW: Pivot Feldname Summe von ersetzen
27.04.2011 16:25:13
ersetzen
Hallo Rudi,
das war jetzt schneller als der Schall - ich nehme an, Du hattest das in Deiner Sammlung?
Geht wie verrückt, eine kurze Frage noch: im Moment macht er "S " oder "A " mit einem Leerzeichen danach - könnte man das Leerzeichen noch rausbekommen?
Am besten wäre ein Ersetzungsmodus - z.B. "s " durch "s" ersetzen, ich habe auch zig mal Leerzeichen die gut rauskönnten oder immer wieder "Menge" was gut durch "ME" zu ersetzen wäre.
Ist wahrscheinlich nur eine kleine Anpassung aber ich weiß nicht wo ich nach pi.caption = replace(... ansetzen müßte.
In jedem Fall aber schon mal tausend Dank
Viele Grüße Lutz
Anzeige
AW: Pivot Feldname Summe von ersetzen
27.04.2011 16:53:27
ersetzen
Hallo,
vllt so?
Sub PI_umbenennen()
'"Summe von", "Anzahl von" etc. aus Datenfeldbezeichnungen löschen
Dim pi As PivotItem, iStart As Integer, pt As PivotTable
Application.ScreenUpdating = False
For Each pt In ActiveSheet.PivotTables
For Each pi In pt.DataPivotField.PivotItems
iStart = InStr(pi.Name, "von")
If iStart > 0 Then
pi.Caption = _
Replace(pi.Name, Left(pi.Name, iStart + 3), LCase(Left(pi.Name, 1)), , 1)
End If
Select Case LCase(pi.Caption)
Case "menge": pi.Caption = "ME"
Case "tralala": pi.Caption = "Tra"
Case "pipapo": pi.Caption = "Pi"
End Select
'Alle LZ raus:
pi.Caption = Replace(pi.Caption, " ", "")
Next
Next
Application.ScreenUpdating = True
End Sub

Gruß
Rudi
Anzeige
AW: Pivot Feldname Summe von ersetzen
27.04.2011 17:09:04
ersetzen
Hallo Rudi,
Tausend Dank - ist wirklich genial.
Ich hatte mir das zusammengebastelt:
Sub PI_umbenennen4()
Dim pi As PivotItem, iStart As Integer, pt As PivotTable
Application.ScreenUpdating = False
For Each pt In ActiveSheet.PivotTables
For Each pi In pt.DataPivotField.PivotItems
iStart = InStr(pi.Name, " ")
If iStart > 0 Then
pi.Caption = Replace(pi.Name, " ", "")
End If
Next
Next
Application.ScreenUpdating = True
End Sub
Geht auch, ist aber nantürlich nicht so elegant wie bei Dir.
Nochmal vielen lieben Dank und noch einen schönen Abend für Dich.
Viele Grüße Lutz
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Pivot-Feldname "Summe von" ersetzen in Excel


Schritt-für-Schritt-Anleitung

Um den Feldnamen "Summe von" in einer Pivottabelle in Excel zu ersetzen, kannst du ein VBA-Makro verwenden. Hier ist eine einfache Anleitung:

  1. Öffne Excel und lade die Arbeitsmappe mit der Pivottabelle.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Wähle im Menü Einfügen > Modul, um ein neues Modul zu erstellen.

  4. Kopiere den folgenden Code in das Modul:

    Sub PI_umbenennen()
       Dim pi As PivotItem, iStart As Integer, pt As PivotTable
       Application.ScreenUpdating = False
       For Each pt In ActiveSheet.PivotTables
           For Each pi In pt.DataPivotField.PivotItems
               iStart = InStr(pi.Name, "von")
               If iStart > 0 Then
                   pi.Caption = Replace(pi.Name, Left(pi.Name, iStart + 2), LCase(Left(pi.Name, 1)), , 1)
               End If
               ' Leerzeichen entfernen
               pi.Caption = Replace(pi.Caption, " ", "")
           Next
       Next
       Application.ScreenUpdating = True
    End Sub
  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. Führe das Makro aus, indem du ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.

Dieses Makro ersetzt "Summe von" durch "s" und entfernt alle Leerzeichen.


Häufige Fehler und Lösungen

  • Fehler: "The pivot table field name is not valid"

    • Überprüfe, ob die Pivottabelle korrekt erstellt wurde und die Datenquelle existiert. Manchmal kann dieser Fehler auftreten, wenn die Datenquelle nicht mehr verfügbar ist.
  • Fehler bei der Ausführung des Makros

    • Stelle sicher, dass du die richtigen Berechtigungen hast und dass die Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Sicherheit > Makros und wähle die geeignete Option.

Alternative Methoden

Wenn du nicht mit VBA arbeiten möchtest, kannst du auch manuell die Feldnamen in der Pivottabelle anpassen. Klicke einfach mit der rechten Maustaste auf den Feldnamen und wähle Umbenennen. Diese Methode ist jedoch zeitaufwändiger, wenn du viele Felder hast.


Praktische Beispiele

Angenommen, deine Pivottabelle zeigt "Summe von Umsatz". Das Makro wird diese Bezeichnung automatisch in "Umsatz" umbenennen. Wenn du spezifische Werte wie "Anzahl von" oder "Menge" hast, kannst du das Makro erweitern, um diese ebenfalls zu ersetzen.

Hier ist ein erweitertes Beispiel, das auch "Menge" zu "ME" ändert:

Select Case LCase(pi.Caption)
    Case "menge": pi.Caption = "ME"
End Select

Tipps für Profis

  • Wenn du häufig Pivottabellen erstellst, speichere das Makro in deiner Personal.xlsb, damit es in allen Arbeitsmappen verfügbar ist.
  • Nutze die Funktion "PivotTable-Optionen", um die Darstellung der Pivottabelle weiter anzupassen, wie das Deaktivieren der Summenanzeige.

FAQ: Häufige Fragen

1. Kann ich das Makro auch für andere Excel-Versionen verwenden? Ja, das Makro sollte in den meisten modernen Excel-Versionen (2010 und später) funktionieren.

2. Wie entferne ich nur bestimmte Feldnamen? Du kannst den Code im Makro anpassen, indem du zusätzliche Select Case-Befehle hinzufügst, um spezifische Feldnamen zu ersetzen.

3. Ist es möglich, mehrere Pivottabellen gleichzeitig zu bearbeiten? Ja, das Makro iteriert über alle Pivottabellen im aktiven Blatt und ändert die Feldnamen entsprechend.

4. Was mache ich, wenn ich das Makro nicht ausführen kann? Überprüfe die Makrosicherheitseinstellungen und stelle sicher, dass du nicht im geschützten Modus bist.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige